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I m videojwgos para ordenador, al menos en nuestro pat's, poseen un 
cardcter marcadamente grdfico; es dear, el arma usada por los programadores para 
atraer al publico es conjuntar la accion con la estetica. AMSTRAD Semanal ha 
pensado tnuchas veces lo interesante que seria poder personalizar los juegos , esto es, 
inspeccionar el programa, encontrar los grdficos, aarles la forma que mas nos gustase r 
volver a grabar el juego asi modificado en cinta/disco. La proxima vtz que jugdramos 
a el, los cambios se reflejarian como por arte de magia. En este sentido, hemos escrito 
un programa, llamado «Espia de Grdficos», que permiie kacer esto mismo, con el 
auxilio de otras herrarnienias ya publicadas en nuestra remsta. Seguro que se van a 
divertir mucho jugando con este programa. 

Resulta obvio dear que el «Espia.. » estd escrito en Codigo Mdquina (no quedaba 
otra eleccion), y que para diseharlo se ha lenido que usar un ensamblador. Estas 
herramientas son un tanto desconocidas en Espaha, hay muy pocas comcrciahzadas 
Para los interesados en el tema, probamos a fondo en este numero uno llamado 
«Hexam» que, aparte de ser muy potente, presenta la particularidad de estar en un 
cartucho de ROM, esto es, se conecta at bus de expansion del ordenador) no gasla un 
byte de memoria. Las ventajas de este planteamiento son innumerables. nosotros las 
decimos todas. 

Por ultimo , ocupa un lugar de honor esta smarm la prueba de un gran programa 
de diseho para el Amstrad PC, llamado «Gem Draw» Podriamos dear mucho de su 
fadlidad de uso, de los magnificos dibtpos que crea y de lo perfectos que salen en la 
impresora, pern lo mejor es remitirles al articulo en cuestion, que lo estudia 
detenidamente. 

Los «jugones» encontramn un original y adictivo programa para los GPCs, el 
«Laserbase», que les transporlard a la velocidad de la luz al cruento escenano de la 
hatalla espacial mas decisim del milenio. 
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CAD-CAM. 
La historia 
continua 



± epper Pro 1280 es un nuevo 
sistema grafico para AutoCAD 
que actua como el eje principal 
de estaciones de trabajo CAD. 

Esta distribuido en Espana 
por Softronic S. A., la misma 


empresa que importa para 
Espana AutoCAD. La nueva 
tarjeta, con un alto nivel de 
resolucion y 32 bits, puede 
convertir a un PC en una 
estacion de trabajo MIPS. 

Actua de una forma 
instantanea, nftida y precisa. 
Para conseguir esta rapidez, el 
zoom, el encuadre y el scroll se 
hacen por medio del hardware. 

Todo esto, unido a su gran 
resolucion (1.280 x 1.024), 
compatibilidad (emula a los 
estandar CGA, MDA y PGC), 
colores simultancos (16 6 256) y 
la gran variedad de su paleta de 
colores hacen de el uno de los 
sistemas graficos mas 
compatibles que existen. 




Copion para PC 

First, S. A., ha comenzado 
a distribuir en Espana la tarjeta 
Copy II PC Opcion Board, de la 
casa estadounidense Central 
Point Software, Tiene un 
programa especial, que forma 
parte de la nueva generation de 
Transition Copier, que copia las 


transiciones magneticas de un 
diskette a otro sin mirar nada 
en particular. Es decir, el 
sistema de copia mas poderoso 
que existe actualmente, ya que 
no trabaja con las limitaciones 
que siempre producen la 
circuiterfa estandar de los 
discos. Reproduce el 98 por 
100, sin necesidad de especificar 
ningtin parametro, aunque 
tambien se puede optar por uno 
de ellos. 

Su mstalacion y manejo t-s 
muy sencillo. Funciona a traves 
de menus. Una de las opciones 
que incorpora es Transition 
Editor con la que sc puede ver el 
formato lisico del disco original, 
editar las pistas y visualizar los 
datos en Hexadecimal o ASCII. 

Si todo esto es cierto, lo que 
parece claro es que este copion 
va a tener un gran exito. 






Backup para el disco duro de Amstrad 


Tekdata ha sacado un nuevo 
periferico, llamado Ex-Streamer, 
con el que se pueden hacer 
copias del disco duro del 
Amstrad PC 1512 o del de 
cualquier otro compatible IBM. 

Su capacidad es de 22 
Mbytes y, por 499 libras, 
incluve una tarjeta de control 
que se introduce en la unidad 
central del ordenador con el 
software y cables necesarios 
para su funcionamiento. 

Adernas, con una tarjeta 



optional, se 
pueden 
compart ir 
sus 

utilidades 
entre 
varies 

ordenadores 
parecidos. 

Parecidas 
caracterfsticas se pueden aplicar 
al Backup para disco duro de 
IBM y compatibles que acaba 
de sacar la casa Teac Corporation. 
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First se sube al carro 
de los compatibles 

Dunross PC-XT 640 Turbo es 
el nombre nuevo compatible 
que va a distribuir cn Espana 
First, S. A. 

Lleva un microprocesador 
8088-2 de Intel, 640 K de 
memoria RAM, que se pueden 
ampliar a 3 Mbytes, y un 
ventilador para evitar los 
problemas de 
sobreealentamiento que 
pudiesen surgir. Se puede elegir 
entre versiones de una o dos 
unidades de disco de 5 1/4” y 
versiones de dico duro de 10, 20 
y 33 Mbytes, todas ellas con 
teclado en Castellano. Su 
capacidad es de 80/40 x 25 
caracteres en modo texto, y 
640 x 200 en modo grafico con 
salida paralela (centronic) para 
impresora. 

Segun First, este compatible 
trabaja un 70 por 100 mas 
rapido de lo normal en los PCs, 
debido al modo turbo de 
actuation. Su precio es de 
115.000 pts., en configuracidn 
basica: 1 floppy. 



Head over Heels. 

Tras las huellas de Batman 




Los PCW son los Amstrad 
mas abandonados en cuanto a 
juegos. Por eso, siempre es de 
agradecer cualquier novedad en 
este sentido. 


existe una version para los 
CPCs. Esta en la misma ltnea 
que Batman, pero, segun todos 
los indicios, le supera en casi 
todos los aspectos. 

Es un juego de accion y 
estrategia con graficos 
tridimensionales Pero, de todas 
estas caracteristicas, hablaremos 
con mayor detenimiento en 
nuestras paginas de juegos. 
Todavfa no podemos adelantar 
su precio. 



Y novedad es el juego del que 
vamos a hablar: Head over Heels. 
Este programa, distribuido en 
Espana por Erbe Software, es lo 
ultimo que ha salido al mercado 
para el PCW, aunque tambien 






i. t 


Nueva hoja de calculo para Amstrad PC 


\Jcalc es la nueva hoja de 
calculo para el Amstrad PC 
1512 y todos los compatibles 
IBM que tengan 256 K, ya 
que, aunque tambien funciona 
en los de 128 K, al programa le 
queda poca memoria libre para 
poder trabajar bien. Lo acaba 
de sacar a la venta la empresa 
Proteus Compting, con un 
precio dos veces mas barato que 
cualquiera de las existentes con 


sus mismas caracteristicas. 

Este programa puede 
satisfacer las necesidades de 
todo tipo de usuarios, desde 
principiantes hasta 
profesionales, debido a su 
capacidad de 256 columnas por 
9.999 lfneas y un contexto 
sensible que ayuda a los noveles 
a introducirse cn las diferentes 
pant alias. 

Incorpora 25 funciones 


aritmeticas. trcs Iogicas (If, 

Then y Else) y cinco de 
tratamiento de listas nuntericas 
(Sum, Maximum, Minimum, 
Average y Count). 

Dentro de poco estara 
disponible una version para usar 
en la red Novell. 

Si desean mas informat ion, 
pueden escribir a Craig Thatcher. 
2 Iffley Road. Hammersmith. 
London W6 OPA. 
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Tipos de datos en Pascal 

Uno de los mas fueries rivales del Basic en el mundo de los 
lenguajes de programacion es, sin duda, el Pascal La criatura de 
Niklaus Wirth reivindica en su favor poseer una organizacion y una 
estructura impecables. 


r 

V^uando uno esta disenando un programa a 
medida, bien para un hipotetico cliente o para 
uno mismo, observa lleno de admiracion que le 
faltan datos, es decir, que si se trata de manejar 
apuntes contables, por ejemplo, se ve obligado a 
tratarlos de la misma forma que si estuviera 
manipulando frases, palabras o numeros. 

Casualmente, al menos de cara al 
programador, todo lo que un ordenador tiene son 
eso, caracteres y numeros, al menos en Basic. 

Ahi esta el quid de la cuestion: el asunto cambia 
completamente cuando se trata de otros 
lenguajes, como el Pascal. 

Cualquier lenguaje de programacion que 
pretenda hacer la vida del sufrido operador un 
poco mas facil, debe poseer dos cosas: estructura 
y posibilidad de definir tipos de datos mas y mas 
complejos partiendo de unos pocos que 
podrfamos llamar ladrillos elementales. 

La primera condicion no es que el Pascal 
simplemente la cumpla, sino que es el lenguaje 
estructurado. Estas palabras nacieron con el. 

La segunda condicion es algo mas esoterica, 
pero creemos que su necesidad quedara patente 
con el programa ejemplo de este artfculo. 

Imagine que usted desee mecanizar la gestion 
de una pequena biblioteca informatica personal. 
Por razones obvias, los datos que se necesitan 
manipular no son ni palabras ni numeros, sino 
programas. 

Desgraciadamente, este tipo de dato no existe, 
y asf, a bote pronto, su ordenador no sabra de que 
le habla. 

Si el programa que mantiene nuestra biblioteca 
informatica hubiera que escribirlo en Basic 
estandar (Locomotive Basic, Mallard Basic o 
IBM Basic), no habria forma de pasar de aquf. 
Usted tendrfa que usar lo que el ordenador tiene, 
y arreglarselas como Dios le de a entender, 
probablemente definiendo montones de matrices 
para el nombre del programa, su precio, la 
version, etc. 

Si se quiere, este enfoque tiene la ventaja de la 
sencillez, pero el gran inconveniente de la poca 
claridad y el verse obligado a tratar algo de 
forma antinatural. Si manejamos informacion 
acerca de programas, lo logico es tratarla como 
un todo, a pesar de que dicha informacion se 


subdivida en categories mas pequenas. 

Afortunadamente, lenguajes mas modernos que 
Basic, como Pascal y C, tienen resuelto este 
problema. Veamos como se hace en Pascal. Se 
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supone que el lector posee unos minimos 
conocimientos del mismo. 

Un programa en Pascal posee una estructura 
absolutamente rigida: primero se declara el 
nombre del programa; luego, las constantes, los 
tipos de datos, las variables, los procedimientos y 
funciones, y, por ultimo, el cuerpo principal de la 
aplicacion. Una vez anotado este detalle, vamos a 
plantearnos seriamente el problema de gestionar 
nuestra biblioteca de software. 

La entidad que nos vamos a ver obligados a 
manipular vamos a llamarla programa. Y, para 
que signifique algo en concreto, analicemos de 
que otras informaciones se va a componer el 
objeto programa. 

En nuestra opinion, sobre el debemos conocer 
lo siguiente: 

— titulo, 

— tipo, 


LENGUAJES 

— version, 

— sistema operativo, 

— precio. 

Una vez definida nuestra informacion, el 
proximo paso es dar forma a cada uno de los 
campos, de tal modo que el ordenador sea capaz 
de entenderlos. Veamos. Evidentemente, el titulo 
tiene que ser una cadena de caracteres, una 
palabra. Por ello, y haciendo uso de un tipo de 
dato predefinido en Pascal, podemos declararlo 
como un array de caracteres de, digamos, 10 de 
longitud. La cosa serfa, en principio, asi: 

titulo : array[1..10] of char; 

La definicion es correcta, pero se le pueden 
poner varias objeciones de estilo. En primer 
lugar, la declaracion pertenece a una variable, es 
decir, la sintaxis correcta en Pascal es: 

var titulo : array[1..10] of char;(l) 

Cada vez que una funcion o procedimiento 
emplee una variable de ese tipo, habria que 
volver a declararla exactamente igual. Ademas 
del tedio que eso supone, no todos los 
compiladores lo aceptarian. Algunos solo admiten 
como parametros variables que pertenecen a un 
determinado tipo de datos. Y aquf esta la clave 
Si declaramos nuestro titulo de la siguiente 
manera: 

type 

titulo_c = array[1..10] of char;(2) 

podremos escribir acto seguido: 

var titulo : titulo_c; 

y el programa ya sabe de que le estamos 
hablando. Acabamos de inventarnos una 
estructura de datos nueva, correspondiente a una 
matriz de 10 caracteres de longitud, que sera 
tratada exactamente igual que los tipos 
predefinidos caracter o niimero. Y, ademas, 
podemos declarar cuantas variables o estructuras 
queramos, por complejas que sean, pertenecientes 
al nuevo tipo. 

Esta manera de ver las cosas resuelve una serie 
de problemas graves. 

Imagfnese que usted ha escrito cuarenta 
funciones que manejan a titulo, tal y como lo ha 
declarado en (1). Siga imaginando: de pronto 
descubre que la matriz de 1 a 10 es demasiado 
corta, tiene que ser hasta 20. Bien, pues tendria 
que cambiar una por una todas las declaraciones. 
Si se ha seguido la practica normal en Pascal de 
compilar por trozos, tendria que corregir el 
codigo fuente y recompilar de nuevo. 

Sin embargo, tal y como esta declarado en (2), 
dentro de la seccion type del programa bastaria 
con modificar eso, poniendo simplemente: 

type 

titulo_c = array[1..20] of char;(3) 



- V 




V - - • 
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De este modo, todo el trabajo que hizo con las 
funciones anteriormente quedaria intocado. Esa 
es la gran ventaja de definir los propios dpos de 
datos. 

Todavia se puede perfeccionar un poco mas la 
declaracion. En efecto, las funciones que 
manipulen a titulo probablemente tend ran que 
llevar la cuenta de los caracteres que hay metidos 
en cada variable. Por ejemplo, si se desea 
imprimirlo, hay que hacerlo caracter a caracter 
hasta que lleguemos al final. Si nos pasamos, 
podria ocurrir un desastre. Tendra que hacer 
comprobaciones constantes del tipo: 

if longitud > 20 then... 

Bien, pero ,*que ocurre si le interesa de nuevo 
cambiar la longitud de titulo a 30? Pues que otra 
vez tendra que corregir y recompilar a lo largo 
de todo el programa. Para evitarlo, la solucion es 
definir la longitud maxima como una constante, 
asf: 

const 

MAXIMO C = 30; 

y 


el valor de la constante, y el resto del codigo del 
programa permanecera inalterado, es decir, 
siempre podremos escribir: 

if longitud > MAXIMO_C then... 

Por ultimo, tengase presente que estamos 
hablando, al fin y al cabo, de una cadena 
alfanumerica, las variables del Basic, 
extremadamente comun, por lo que algunos 
compiladores de Pascal tienen el tipo string 
(cadena) ya predefinido. ,-Algun problema? Para 
nosotros, ninguno. Bastaria con escribir: 

type 

titulo_c = string[MAXIMO_C]; 

y nuestro programa seguina funcionando tan 
ancho. De esta forma, gracias a las declaraciones 
de tipo, la portabilidad (y rentabilidad) de 
nuestro codigo fuente aumenta muchfsimo. 

Todo lo dicho anteriormente puede aplicarse a 
lo que comentemos a partir de ahora. Vamos a 
estudiar con algo de detenimiento otro campo 
interesante: el tipo de programa. 

Pascal ticnc,' para estos casos, una facilidad 
unica, que se conoce como tipo enumerado. Fijese 
en la declaracion: 


type 

titulo_c = array[1..MAXIMO_C] of char; 

En caso de cambios, solo habra que modificar 


type 

clase_programa 

III 111) AI >); 


program type_demo (input, output); 
const 


(GESTION, JUEGO, 



MAXIMO_C = 20;{LONGITUD MAXIMA DE LAS CADENAS} 

MAXIMOJE = 100;{NUMERO MAXIMO DE PROGRAMAS EN LA LIBRERIAJ 
type 

clase_programa = (GESTION, JUEGO, UTILIDAD, OTRO): 

(TIPOS DE PROGRAMAS PREVISTOS.ES POSIBLE ANADIR OTROS} 

titulo_c = array[1 ..MAXIMO_C] of char; 

{TIPO DE DATOS PARA EL TITULO DE LOS PROGRAMAS) 

comandos = array[1 ..1] of char; 

{TIPO DE DATOS PARA LAS ORDENES QUE ACEPTARA EL PROGRAMA) 

programa = record 
titulo : titulo_c; 
tipo : clase_programa; 
version, dos: real; 
precio : integer; 
usado : boolean; 
end; 

{RECORD QUE ALMACENA LA INFORMACION RELEVANTE DE CADA PROGRAMA) 

biblio = array[1 ,.MAX!MO_E] of programa; 

{MATRIZ CON ESPACIO PARA 100 PROGRAMAS) 

contador = O..MAXIMO_E; 

{TIPO DE DATOS PARA LAS VARIABLES 'CONTADORAS'} 



var 

libreria: biblio; 
orden : comandos; 
lleno : boolean; 

{FLAG QUE INDICA SI QUEDA ESPACIO PARA MAS PROGRAMAS) 
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Asi de claro y facil. Le estamos diciendo al 
ordenador que este es un tipo de dato que puede 
tomar esos tres valores, con lo que la legibilidad 
de nuestro programa aumenta en gran medida. 

Si, una vez mas, se nos ocurre que nos hemos 
dejado en el tintero la posibilidad de anadir una 
clase generica de varios a nuestro tipo de 
programas, nada mas facil: 

type 

clase_programa = (GESTION, JUEGO, 

UTILIDAD, OTRO); 

y eso es todo. Las variables posteriormente 
declaradas como pertenecientes a este tipo de 
datos incorporaran la modificacion. Sin mas 
cambios. 

El resto de los campos de nuestro tipo de 
programa son mas de sentido comun. Asi, en 
version y sistema operativo, habra que teclear 
cosas como 2.5 y 3.0. La solucion mas evidente 
es declararlos de tipo real , uno de los predefinidos 
en Pascal. En cuanto al precio, no parece 
probable que sea 3.250,25 pesetas, por lo que 
declararlo como integer debiera bastar. 

A estas alturas, ya tenemos clara toda la 
informacion relevante del tipo de datos 
programa, pero todavia no la hemos organizado 
en un todo coherente. Esto se hace mediante la 
sentencia Pascal record: 


procedure lee_programa (i. contador); 
var 

eleccion : 1 ..4; 
begin {lee_programa} 
writeln(TITULO:'); 
read!n(libreria[i].titulo); 
writelnfVERSION:'); 
readln(libreria[i].version); 
write!n('SISTEMA OPERATIVO: ’}, 
read!n(libreria[i].dos); 
writelnfPRECIO:'); 
readln(libreria[i] precio), 
repeat 

writeln('TIPO DE PROGRAMA:'); 

writeln('GESTION(1) JUEGO(2) UTILIDAD(3) OTRO(4)'); 

readln(eleccion); 

until (eleccion >= 1) and (eleccion <= 4); 
case eleccion of 
1 : 

libreria[i].tipo := GESTION; 

2 : 

libreria[i].tipo := JUEGO; 

3 : 

libreria[i].tipo := UTILIDAD; 

4: 

libreria[i].tipo = OTRO; 

end; (case) 

libreria[i].usado := TRUE; 
end; {lee_programa} 

procedure nuevo; 
var 

i; contador; 


LENGUAJES 


type 

programa = record 

titulo : titulo_c; 

tipo : clase_programa; 

version, dos : real; 
precio : integer; 
usado : boolean; 

end; 

Ya esta. Hemos creado una entidad llamada 
programa , con unas ciertas caracteristicas, que 
vamos a poder manipular de una vez, como si 
fuera un numero o un caracter. El lector 
observara que aparece un campo mas, usado , de 
tipo boolean, es decir, cierto o falso. Su utilidad se 
vera mas tarde, y su existencia se debe a la 
logica elegida para gestionar nuestra biblioteca. 

Bueno, hasta ahora solo tenemos definido un 
programa. ^Como nos las arreglariamos para 
poder trabajar con 100, por ejemplo? 

De nuevo recurrimos a otro tipo de datos; 

type 

biblio = array[1..MAXIMO_E] of 

programa; 


begin (nuevo) 
writeln('NUEVO'); 
i = 1; 

while (libreria[i).usado) and (i < MAXIMO_E) do 
i := i + 1; 

if (i = MAXIMO_E) then 
lleno := TRUE 
else 

iee_programa(i); 
end; (nuevo) 

procedure eliminar; 
var 

i: contador; 
begin (eliminar) 
writelnfELIMINAR QUE:'); 
readln(i); 

if (i < 1) or (i > MAXIMO_E) then 

writelnCINEXISTENTE') 

else 

libreria[i).usado := FALSE; 
end; (eliminar) 

procedure lista_programa (i: contador), 
begin (lista_programa) 
writeln(libreria[i].titulo); 
writeln(libreria[i].version); 
writel n(libreria[i] .dos); 
writeln(libreria[i].precio); 
case libreria[i],tipo of 
GESTION : 
writeln('GESTION'); 

JUEGO: 
writeln('JUEGO'); 
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en donde MAXIMO_E es una constante que 

vale 100, puesta por las mismas razones de 
flexibilidad que comentamos anteriormente. 

,;Que hemos hecho realmente? Pues se ha 

creado una matriz de MAXIMO_E elementos, 

pero cada uno de ellos es del tipo programa; es 
decir, tenemos espacio reservado para 

MAXIMO_E programas, cada uno con la 

estructura definida para el. Nuestra biblioteca 
informatica personal ya esta implementada. 

Quedan, antes de ver los procedimientos que la 
gestionan, solo dos tipos de datos mas, 
dependientes de la logica elegida. Nos vamos a 
mover tecleando comandos de una sola letra; por 
ello, deflnimos: 

type 

comandos = array[l..l] of char; 

y, como previsiblemente habra que usar variables 
contadoras: 

type 

contador = 0..MAXIMO_E; 

ya que nunca vamos a contar mas alia del 
numero de elementos del array de programas. 

Ya podemos declarar las variables globales: 

var 

libreria: biblio; 

orden: comandos; 

lleno: boolean; 


Es todo lo que necesitamos para poner en 
marcha el programa. Vamos a echar un ligero 
vistazo al mismo, empezando por la parte 
principal, el manager. 

begin {PROGRAMA PRINCIPAL} 

lleno: = FALSE; 

write(‘QUE HAGO AHORA?:’); 

readln( orden); 

while(orden [1] < > ‘s’) and (not lleno) do 
begin 

procesa(orden); 

write(‘QUE HAGO AHORA?:’); 

readln(orden); 

end; 

if lleno then 

writeln(‘NO TENGO SITIO PARA MAS 
PROGRAMAS’); 

writeln(‘FIN DEL PROGRAMA’); 
end. {PROGRAMA PRINCIPAL} 

La logica no puede ser mas sencilla: la variable 
lleno nos va a decir cuando no hay sitio para 
guardar mas programas, por lo que la 
inicializamos a FALSE. A continuacion, se 
imprime un mensaje y se lee la orden. Si es “s” 
o si no queda sitio para mas programas, el 
manager termina imprimiendo el mensaje 
adecuado. De lo contrario, se procesa la orden 
con el procedimiento: 


UTILIDAD : 
writelnCUTILlDAD'); 



OTRO : 

writeln('OTRO'); 
end; {case} 
writeln; 

end; {lista_programa} 

procedure listar, 
var 

i; contador; 
begin {listar} 

for i := 1 to MAXIMO_E do 
begin 

if libreria[i] usado then 
lista_programa(i); 

end; 

end; {listar} 

procedure buscar; 
var 

i ; contador; 
begin {buscar} 
writeln(’BUSCAR QUE:’); 
readln(i); 

if (i < 1) or (i > MAXIMO_E) then 
writeln('FUERA DE RANGO') 
else if libreria[i],usado then 
lista_programa(i) 
else 

writeln('INEXISTENTE'); 
end; {buscar} 


procedure procesa (orden : comandos); 
begin {procesa} 
case orden[1 ] of 

'b'. 

buscar; 

’n’: 

nuevo; 

’e' 

eliminar; 

T : 

listar; 

else 

writeln('ERROR:COMANDO DESCONOCIDO'); 
end; {case} 
end; {procesa} 


begin {PROGRAMA PRINCIPAL} 

showtext; 

lleno ;= FALSE; 

write(’QUE HAGO AHORA?: '); 

readln(orden); 

while (orden[1 ] <> ’s’) and (not lleno) do 

begin 

procesa(orden); 
write(’QUE HAGO AHORA?: j; 
readln(orden); 
end; 

if lleno then 

writeln('NO TENGO SITIO PARA MAS PROGRAMAS'); 
writeln('FIN DEL PROGRAMA'); 
end. {PROGRAMA PRINCIPAL} 
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procedure pro^esa (orden : comandos); 
beginjprocesa 
case orden[l] of 
‘b’: 

buscar; 

‘n’: 

nuevo; 

‘e’: 

eliminar; 

T: 

listar; 

else 

writeln(‘ERROR: COMANDO 
DESCONOCIDO’); 
end; {case} 
end; {procesa} 

Este procedimiento tambien esta claro. Bifurca 
a otro que se encarga de cada comando o da un 
mensaje de error si este es desconocido. 

Veamos como funciona el procedimiento 
buscar: 

procedure buscar; 
var 

i: contador; 
begin {buscar} 

writeln(‘BUSCAR QUE:’); 
readln(i); 

if (i < 1) or (i > MAXIMO_E) then 

writeln (‘FUERA DE RANGO’) 
else if libreria[i].usado then 

lista_programa(i) 

else 

writeln(TNEXISTENTE’); 
end; {buscar} 

Aqui aparece por primera vez el misterioso 
campo libreria[ij. usado, que puede ser TRUE 
(verdad) o FALSE (,;mentira?). Este apartado lo 
inicializa el procedimiento nuevo, y si es verdad, 
indica que en ese elemento del array librerfa 
existe un programa archivado. El metodo no es 
muy sutil, pero es muy rapido para buscar y 
listar, por ejemplo: 

procedure listar; 
var 

i: contador; 
begin {listar} 

for i: = 1 to MAXIMO_E do 

begin 

if libreria[i].usado then 

lista_pr ograma( i); 

end; 

end; {listar} 

Como se puede observar, solo se listan los 
elementos del array que tienen un programa 
archivado. La idea deviene en particularmente 
util en el caso de eliminar un programa del 
archivo: 

procedure eliminar; 
var 

i: contador; 


LENGIAJES 

begin {eliminar} 

writeln(‘ELIMINAR QUE:’); 
readln(i); 

if (i < 1) or (i> MAXIMO—E) then 
writeln (‘INEXISTENTE’) 
else 

libreria[i].usado: = FALSE; 
end; {eliminar} 

Recurrimos al truco de poner en ese campo un 
FALSE, por lo que el procedimiento nuevo lo 
encuentra disponible, sin perder tiempo en borrar 
campo a campo el programa desechado: 

procedure nuevo; 
var 

i: contador; 
begin {nuevo} 
writeln(‘NUEVO’); 
i: = 1; 

while (libreria[i].usado) and 
(i < MAXIMO E) do 
i: = i + 1; 

if (i = MAXIMO_E) then 

lleno: = TRUE 
else 

lee_programa(i); 

end; {nuevo} 

Observese como el bucle while recorre el array 
hasta que encuentra un elemento libre, o hasta 
que llega al final del mismo. En este ultimo caso, 
la variable global lleno se hace cierta, con lo que 
el programa principal se detendra. 

Aclaraciones finales 

El proposito de este articulo gira alrededor dc 
un primer contacto con las cstructuras de datos 
en Pascal; por ello no se ha puesto mayor enfasis 
en la elegancia y la eficiencia de los 
procedimientos que gestionan la bibliotcca. Aun 
ast, funcionan bien, y para una cantidad de 
programas entre 100 y 1.000, aproximadamente, 
van muy rapidos. 

Por otro lado, el lector se preguntara por que 
no se han incluido un par de procedures para 
salvar y cargar los datos de los programas. La 
razon es simple: portabilidad. Existen diferencias 
entre los compiladores a la hora de tratar este 
tema. Por ello se deja como ejercicio al lector. En 
cualquier caso, el presente programa se escribio 
en Turbo Pascal, por lo que funcionara en el 
Amstrad PC y en los CPC y PCW, ya que 
existe una version de este compilador para 
CP/M. Los que tengan el Hisoft Pascal tambien 
podran teclear y ejecutar el programa, usuarios 
del CPC 464 incluidos. 
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Hexam: un ensamblador 
que no gasta memoria 

Por: Victor Prieto 


Todos los compiladores tienen el mismo problema: son rapidos, eficaces, 
etc., pern consumen memoria; ni mas ni menos. Algun aguerrido lector 
se preguntara «^pero es un fallo consumir memoria?, si precisamente los 
ordenadores estan para eso». En ordenadores con 512 K de RAM se 
puede introducir un compilador sin que se note la falta de esta, pern si 
hablamos de un ordenador con 64 K de las cuales 22 estan ocupadas 
por la copia del firmware en la RAM, el problema es preocupante. 



De todas formas el usuario normal no tiene 
que afrontar estos problemas de memoria. 
Cualquier persona que quiera trabajar con un 
determinado lenguaje en el Amstrad, tiene de 
sobra con las veinte y pico K que le deja libre el 
compilador. 

Los que hayan programado en Basic sabran lo 
dificil que es realizar un «programon» de mas de 
15 K, que implica trabajar con cientos de lfneas 
y tratar con miles de errores por cruces de 
valores entre las distintas variables. 

Pero el objeto de todo esto no reside en la 
utilization de lenguajes varios, sino que se centra 
en un lenguaje muy concreto, el mas arido y 
dificil de todos, aquel que solamente unos pocos 
elegidos dominan y que tiene tal riqueza en sus 
matices y tecnicas de programacion que cada 
nueva rutina es como poner una pica en Flandes. 
Nos referimos sin lugar a dudas al Ensamblador, 
la forma mas primitiva y complicada de 
programar. 
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Pues bien, los adictos a este lenguaje estan de 
enhorabuena. Por fin van a poder superar las 
rmticas veinte y pico K de codigo de una sola 
pasada. Se acabo aquello de tener el compilador 
ocupando un espacio precioso en la memoria. 

Para los autenticos programadores de este 
apasionante lenguaje, la casa ACE introduce una 
herramienta verdaderamente valiosa. La solution 
(que no nos explicamos como no se le habfa 
ocurrido antes a alguien) es bien sencilla un 
Ensamblador en ROM (en este caso 
Ensamblador y Desensamblador juntos) para que 
los viciosos del Codigo Maquina se den una 
«hartura de bytes». 

Hexam 

Con la sencilla operation de insertar un 
pequeno cartucho (10x6x2 cm) en el slot de 
expansion de nuestra maquina, el Ensamblador 
esta listo para su uso. 

Una vez encendido el ordenador, el sistema se 
inicializa listo para trabajar en Basic. La unica 
diferencia es un mensaje que aparece en pantalla 
indicando que el Hexam. esta presente en el 
sistema preparado para entrar en funcionamiento 
cuando le llamemos. 

Como se indico arriba, el cartucho contiene 
dos programas que completan el set de 
herramientas de un avezado programador. Uno 
de ellos es el Editor con el que generaremos el 
codigo fuente que posteriormente ensamblaremos 
y otro el Monitor con el cual podremos analizar 
detenidamente y desensamblar el codigo generado 
por otros compiladores, o por el propio Hexam. 

Situados en el Basic, la entrada en 
funcionamiento no puede ser mas sencilla: 
tecleando I EDIT, entra en operacion el editor de 
forma instantanea. Por otro lado, tecleando I 
MON tenemos el monitor listo para diferir las K 
de codigo que le metamos. 









Tal vez para los usuarios no experimentados 
en el Codigo Maquina el Hexam no represente 
grandes diferencias con los ensambladores 
normales contenidos en cinta o disco. Es para los 
programadores de mas entidad para los que esta 
disenada esta herramienta, con un completo 
sistema de edicion y tratamiento de codigo. 

En palabras de ACE «Quien guste de 
programar en Lenguaje Maquina, apreciara 
rapidamente la eficacia de este programa, asi 
como el sistema de Soft-keys de que le hemos 
dotado para le selection de los diferentes 
comandos». 

El editor 

Situados en el editor, la pantalla se ha vuelto 
completamente negra, el area de trabajo esta 
situado por encima de una lmea horizontal, 
debajo de la cual se encuentra la lmea de 
comandos. 

Las Soft-keys responden a un sistema por 
medio del cual cualquier comando puede ser 
obtenido directamente en pantalla sin tener que 
escribir una sola letra, la unica pulsacion de la 
tecla de funcion correspondiente hace que este 
aparezca por debajo del area de trabajo listo para 
ser completado con los parametros necesarios o 
ejecutado directamente. 

Este sistema permite un rapido acceso a los 
mismos, pudiendo recorrer su repertorio de 
forma rapida, e indicandonos una vez elegida 
nuestra opcion los parametros con que hemos de 
completar la sentencia. Asi, no hemos de 
consultar manuales ni instrucciones, solo pulsar y 
seguir; un sistema directo, rapido y seguro. 

El total de los comandos que integran el editor 
esta contenido en cuatro lmeas, cada una 
compuesta por seis distintos asociados a las teclas 
de funcion comprendidas entre los numeros F4 y 
F9, con la tecla F6 para realizar el cambio de 
lmea de comandos. 

Cualquier operacion relacionada con listados o 
modificaciones del texto es llevada a cabo gracias 
al cursor, el cual siempre marcara la posicion 
inicial para cualquier modification de los bloques 
de texto. 

Este se sitria en la posicion indicada por medio 
de las teclas de cursor, siempre que tratemos con 
pequenas cantidades de texto. Para grandes 
listados o efectuar operaciones de insercion y 
borrado hemos de introducir unos parametros 
determinados en los comandos correspondientes. 

Para posicionar el cursor en una lmea, basta 
con escribir el numero de la lmea en la section 
de pantalla reservada a comandos y pulsar 
ENTER. 

Insercion y otras opciones 

Pulsando la tecla F7 aparecera en la pantalla 
de texto ocupando la posicion de cursor la 


Banco de 
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palabra NEW, que nos indica que estamos listos 
para escribir el texto deseado, el modo de edicion 
se abandona con una nueva pulsacion de F7. 

La opcion de revision permite efectuar 
modificaciones dentro de un texto escrito 
anteriormente. En ella siguen operativas todas las 
posibilidades anteriores de movimiento del cursor 
y la salida de la misma se efectua con una nueva 
pulsacion de F8. 

La definition de margenes de tabulation puede 
realizarse a gusto del usuario, o utilizando los 
previamente definidos en el programa, los cuales 
solamente ocupan una extension de 40 caracteres, 
quedando el resto de la pantalla sin tabular. 

El borrado de lmeas lo efectua la roden 
DELETE. Con ella podemos eliminar lmeas y 
bloques de texto utilizando el siguiente modo de 
operacion basado en las teclas de comandos: 

Una vez seleccionada la opcion, aparecera en 
pantalla una lmea de comandos complementary 

£ 
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en la cual tenemos los siguientes parametros: + 

> o THRU. 

Utilizando el + conseguiremos borrar la 
porcion de texto comprendida entre la posicion 
actual del cursor y el numero de lfneas 
especificado tras el signo mas, de esta forma 
indicar + 25 borraria las siguientes 25 lfneas de 
texto. 

El > sigue la misma tonica con la 
particularidad de que ahora la porcion de texto 
acotada corresponde a la comprendida entre la 
lfnea del cursor y el numero especificado de 
lfneas, pero contadas hacia arriba. En este caso 

> 20 borrarfa las 20 lfneas anteriores a la lfnea 
del cursor. 

El parametro THRU abre las puertas a tres 
nuevas posibilidades: 

THRU START, con lo que conseguiremos 
borrar el texto comprendido entre la lfnea de 
cursor y el principio del texto. 

THRU END que efectua el borrado entre la 
lfnea de cursor y el final del texto. 

THRU LINE acota para el borrado el bloque 
de lfneas comprendido entre la lfnea en la que se 
haya el cursor y el numero introducido por 
teclado. 

Con el conjunto de parametros especificado es 
facil delimitar el bloque que se ajuste 
exactamente a nuestras necesidades, siempre de 
una forma facil y sin lfos en el orden de los 
mismos. 

Operaciones con ficheros 

El tratamiento de ficheros en disco se efectua 
con los comandos propios del Basic: CAT, 

LOAD, SAVE, MERGE. 

CAT realiza un directorio del disco, sacando 
en la pantalla de texto el resultado del mismo. 

LOAD efectua la carga de un fichero desde el 
disco. Este ha de estar en codigo fuente y debe 
haber sido creado por el editor, en otro caso el 
programa no reconocera el fichero especificado, 
Hexam graba sus ficheros sin extension alguna y 
con un nombre cuva longitud no ha de exceder 
de ocho caracteres, no siendo necesario situarlos 
entre comillas. 

SAVE graba un fichero en disco, pudiendo ser 
el nombre del mismo especificado por defecto, es 
decir, cuando el fichero estaba anteriormente en 
disco y hemos procedido a su carga para anadir o 
modificar lfneas, o introduciendole con un nuevo 
nombre. 

MERGE posibilita una aplicacion muy util y 
totalmente distinta a la que se le da en Basic. 

Mediante este comando podemos anadir el text 
contenido en el editor una determinada porcion 
de otro fichero contenido en el disco. 

MERGE PROGRAMA FROM 100 THRU 200 


unira al fichero contenido en memoria las lfneas 
comprendidas entre la 100 y 200 (ambas 
incluidas) del fichero con el nombre 
PROGRAMA contenido en el disco. 

Tratamiento de lfneas 

La copia de bloques de texto se realiza de foma 
similar al borrado de los mismos especificado con 
anterioridad en DEL. La forma de acotar los 
bloques es la misma para todos los comandos que 
trabajan con ellos. 

En el caso de la copia se utiliza el comando 
COPY, en el cual la maxima cabida de texto 
para efectuar la copia es de 2 K. Por encima de 
esta cifra revasaremos la cantidad de memoria 
reservada a este fin. 

EXTRACT permite extraer texto del fichero 
con el que estamos trabajando. Este pasa a una 
zona de memoria transitoria para ser procesado 
posteriormente por el comando RETRIEVE. 

RETRIEVE recupera el texto acotado por las 
ordenes COPY o EXTRACT y lo reproduce en 
la zona deseada a partir de la posicion de cursor. 

Para copiar mas de una vez el texto archivado 
en el bufer de copia, es posible especificar el 
numero de veces que deseamos reproducirlo 
detras de la orden RETRIEVE. 

RENUM dota de numero a las lfneas que 
todavfa no tienen, actualizando de paso la 
numeracion de las demas. Este comando se 
ejecuta desde el campo de trabajo por 
introduction del mismo, o de forma automatic?? 
cuando pretendemos grabar un fichero o 
ensamblar un texto sin renumerar. 

Busqueda de cadenas 

FIND busca la cadena especificada entre 
comillas a partir de la lfnea siguiente a la del 
cursor y a lo largo de todo el texto senalandonos 
con el cursor la posicion de esta cuando ha sido 
localizada. Una pulsation de ENTER hara que 
continue la busqueda por el resto del texto hasta 
dar de nuevo con la cadena requerida. 

REPLACE realiza la sustitucion de la cadena 
especificada entre comillas a lo largo de la 
porcion del texto marcada por el comando 
RANGE. Con ella podemos cambiar el nombre 
de variables, etiquetas, codigos de instruction y 
todo lo que se nos ocurra. 

RANGE sirve para acotar el campo en el que 
posteriormente ha de actuar REPLACE. La 
anchura del campo delimitado puede variar desde 
el total de la pantalla hasta una columna de un 
solo caracter. 

PRINT hace un volcado por impresora del 
texto que tenemos en el area de trabajo. La 
porcion de texto que ha de ser impresa se 
especifica por medio de los parametros de marca 
de bloques, pudiendo volcar desde una sola lfnea 
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hasta la totalidad del mismo, pasando por 
cualquier portion de este. 

AUTO TAB situa automaticamente el cursor 
en la columna correspondiente al codigo de 
operacion, evitando de esta manera la tediosa y 
repetitiva operacion de pulsar TAB al principle 
de cada linea. 

Assembler 

Es el comando que permite ensamblar el 
codigo fuente que tengamos en memoria en 
codigo directamente ejecutable por el ordenador. 

Sus normas de sintaxis permiten que las 
etiquetas puedan escribirse en mayusculas o 
miniisculas, debiendo obligatoriamente escribirse 
los codigos de instruccion en miniisculas. 

Las especiales caracteristicas de este 
ensamblador permiten incluir comentarios al final 
de los codigos de instruccion sin necesidad de ser 
separados por «;» que solo seran utilizados en el 
caso de querer dedicar una linea completa como 
comentario o separador. 

Dentro de la operacion de ensamblado 
podemos requerir la ejecucion de las siguientes 
operaciones: 

LIST da un listado en pantalla del resultado 
del proceso, sacando de izquierda a derecha la 
posicion adjudicada a la instruccion, codigo 
generado, codigo fuente y comentarios. 

PRINT vuelca por impresora el listado 
anterior. 

LIST/WE lista los mismos parametros, pero 
deteniendo la ejecucion en el comando donde se 
detecta un error. La pulsacion de una tecla 
cualquiera pondra en marcha el proceso de 
nuevo. 

PRINT/E lista los errores detectados por 
impresora, sacando unicamente el tipo de error y 
el numero de linea donde se ha producido. 

La ejecucion del comando ASSEMBLER 
puede ser detenida con ABORT. 

BASIC permite el paso al Basic del ordenador 
desde nuestro ensamblador. 

En los modelos 664 y 464 en este trasiego 
perderemos el codigo contenido en memoria, 
pero en el modelo 6128, este permanecera intacto 
y Iisto para ser recuperado al volver de nuevo al 
editor. 


El monitor 

En otro programa aparte del editor tenemos el 
monitor de Codigo Maquina, con el cual 
podremos desensamblar cualquier rutina 
producida por el Hexarn o cualquier ensamblador 
del mercado. 

La puesta en marcha del mismo se hace desde 
el Basic con el simple tecleo de I MON, instantes 
despues aparecera la pantalla del desensamblador 
listo para recibir el codigo requerido. 
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Las opciones del mismo se obtienen por el 
simple tecleo de la inicial correspondiente, las 
ci ales permanecen en la parte inferior de la 
pantalla constantemente junto con todos los 
comandos del mismo. 


En definitiva, un amplio abanico de 
posibilidades que permiten desensamblar 
cualquier porcion de codigo, reubicarla en 
distintas porciones de memoria, pasar ficheros al 
disco, listar el desensamble por impresora y todas 
las operaciones necesarias para que cualquier 
Hacker haga maravillas con los programas 
comerciales. 


Conclusiones 

Tanto programadores expertos como miciados 
con curiosidad en introducirse en el Codigo 
Maquina encontraran en este programa en ROM 
una herramienta insustituible a la hora de 
realizar o analizar programas. 

La forma facil de utilizacion tanto del editor 
como del monitor, asi como la amplia variedad 
de comandos incluidos, hacen que los 
ensambladores en disco o en cinta queden fuera 
de orbita tras la estela del Hexam, que con su 
completo editor proporciona la herramienta mas 
potente de programacion conocida hasta la fecha 
en los modelos Amstrad. 
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£jsta section esta dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. Todo aquel que lo 
desee puede enviarnos su anuncio, mecanografiado, a: HOBBY 
PRESS, S.A. AMSTRAD Semanal. Apartado de Correos 232 
Alcobendas. Madrid. 

/ABSTENERSE PI RAT AS! 


Mercado 

cqmun 


Vendo o cambio programas 
para el 6128, 464, 664, a 200 
ptas. cada uno. Tengo algunos 
como: 1942, Breakthru, Galvan, 
Army Moves, Future Knight, 
Infiltrator y muchos mas. 
Interesados escribir o llamar a 
Clemente Martin. San Martin, 4, 
2.° C. 47400 Medina del 
Campo (Valladolid). Tel. (983) 
80 12 89 (de 9 en adelante). 
Enviar lista. 


Intercambio todo tipo de 
programas, juegos y 
aplicaciones, tengo mas de 300. 
Arturo Latierro . Enrique Eguren, 


3- 4 A. Vitoria. Tel. 22 05 27, 
a partir de las 6 de la tarde. 


Vendo Amstrad CPC 6128, 
impresora Compute Mate 100, 
unidad de disco DDI-1, Pascal 
MT Plus y dBase II. Tel. (96) 
373 94 54 (mananas). 


Cambio programas para 
Amstrad CPC’s. Enviar lista a 
la siguiente direccion: Amador 
Abelleira. Valencia, 23, 2.° D. 
Gijon (Asturias) Prometo 
contestar. 


NECESITAMOS personas 

que conozcan, profundamente, lenguaje Ensamblador del 8086/8088 y 
dominen los ordenadores compatibles IBM PC, desde el punto de vista del 
lenguaje Maquina. Se valoraran en gran medida conocimientos acerca del 

Dos. 

Si usted es uno de ellos, pongase en contacto con nosotros rapidamente, 
en la direccion que se indica a continuacion, poniendo en lugar muy visible 

del sobre: 

Referenda: Dos AMSTRAD Semanal. 

IMuestra direccion es: 

AMSTRAD Semanal 

Ctra. de Irun. Km 12,400. Fuencarral (28049 Madrid). 
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Vendo videojuegos Philips G 
7000 con dos videopacs (uno de 
ellos con expansion de 
memoria). Precio a convenir. 
Tel. 430 88 52. 


Cambio programas con 
usuarios del Amstrad 464, 664, 
6128. Poseo mas de 350 
programas, entre ellos las 
ultimas novedades. Contestare a 
todos. Escribir a Jose Enrique 
Sanchez Hurtado, Torres 
Quevedo, 3, 3° C. 02003 
Albacete. O bien Uamar al tel. 
(967) 23 49 88. 


Desearfa contactar con 
usuarios del Amstrad CPC 
6128, preferiblernente de Elche. 
Interesados escribir a Manuel 
Gonzalez Tobar. Concepcion 
Arenal, 57, 6.° dcha. Elche 
(Alicante). Tel. 44 08 06. Al 
escribir poner vuestro numero 


de telefono y lista de programas 
de vuestra propiedad, yo hare 
lo mismo en cuanto reciba 
vuestras cartas, incluso 
podnamos formal' un club de 
usuarios en Elche. 


Cambio Compacto Panasonic 
(plato, sintonizador y cassette) 
por ordenador Amstrad o 
Commodore. Luis Miguel Prego 
Otero. Rua do Muelle, 17. 
Gambados (Pontevedra). Tel. 
(986) 54 20 14. 


Vendo Amstrad CPC 128, 
monitor en color, impresora 
Seikosha SP 1000CPC, con los 
siguientes programas: Tasword 
128 con mailmerge, Wordstar 
con mailmerge, Multiplan, 
dBase II, cBasic, Dr. Graph, 
Micropen, Microscript, 
copiones y juegos multiples, una 
verdadera ganga, solo los 
programas en el mercado ya 


valen mas de 150.000 ptas. 
Todo por solo 190.000 ptas., 
incluida de regalo la coleccion 
completa de AMSTRAD Semanal, 
6 cintas nuevas para la 
impresora y muchos discos. 
Todo en perfecto estado y bajo 
garantfa. Interesados llamar al 
(96) 352 51 94 6 361 37 38 
Valencia. 


Deseo contactar con usuarios 
(o un club de usuarios) de 
Amstrad PCW 8256 para 
intercambio de programas. 
Dispongo de Placon, dBase II, 
Facturacion y almacen, 
Contabilidad + Vencimientos y 
los juegos Batman y 3D Clock 
Chess. Me interesarfa copiones, 
Supercalc 2, un programa de 
mediciones y presupuestos. 
Interesados escribir a Salvador 
Montoya Gutierrez. Ocana, 31, 
12.° B. 28047 Madrid. Tel 
718 36 06. Preferentemente 
noche. 




Todos los sabados, de 5 a 7 
de la tarde, en “Sabado Chip” 
Dirigido por Antonio Rua. 
Presentado por Jose Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informatica. Haciendo 
radio chip... estilo Cope. 
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Vendo Amstrad CPC-6128, 
fosforo verde, con poco uso, 
manuales completos, etc. por 
76.000 ptas. Se incluyen discos 
vfrgenes, varios libros, muchas 
revistas, etc. Tel. (91) 

850 23 49 Eduardo C. Villalba 
(Madrid). 


Desearia vender a buen 
precio: un modulador para 
Amstrad 464. Revistas 
AMSTRAD Semonal numeros del 
1 al 42 inclusive. Preguntar por 
M. a Angeles. Tel. 23 31 55. 
Zaragoza. 


Deseo contactar con usuarios 
de Amstrad PCW-8256/512 
para intercambio de programas. 
Interesados llamar al tel. (93) 
399 25 30 de Badalona 
(Barcelona) o escribir al apartado 
de correos 60, de la misma 
ciudad a Luis Garcia. 


Si tienes un PCW y dispones 
de uno de estos programas: 
Gestion de Videoclubs, 
Declaration renta (desprotegido) 
o Gestion integrada de empresa, 
no lo pienses mas y llama al tel. 
(968) 59 43 39. Tardes o escribe 
a Adolfo Ceron. General Aranda, 
23. 30870 Mazarron (Murcia). 
Pago bien. 


Vendo ordenador Amstrad 
PCW-8256 (con impresora) 
ampliado a 512 Kb y segunda 
unidad de disco de 720 Kb, con 
los programas: Superficial, 
dBase II, cBasic Compiler y 
Pascal MT + . Todo por 


160.000 ptas. Llamar al tel 
(972) 23 93 71, de 21 a 23 
horas. Preguntar por Luis. 


Desearia contactar con 
usuarios del Amstrad 
CPC-464/664/6128 para 
intercambio de programas de 
todo tipo, informacion, ideas, 
etc. Escribir a Juan Antonio 
Garcia Montoya. Los Naranjos, 
7, El Palmar (Murcia). Tel. 
(968) 84 19 56. 


jAtencion! Se vende el 
siguiente paquete de programas 
de utilidades (en disco). 
Contabilidad domestica y 
personal, Facturacion, 

Genaload, Monaload, Tasword, 
Tascopy, Amsdraw II, Amscalc 
y Copion por el precio de 4.300 
ptas (disco incluido). Para 
informacion escribir a Josep 
Sanchez R. Avda. San Narcfs, 

98. 17005 Gerona. 


Vendo Anjstrad PCW 8256 
con monitor fosforo verde, con 
muy poco tiempo y ningun uso 
Embalaje perfecto. Regalo 
discos, base de datos y revistas 
y varios programas, uno de 
contabilidad, etc. Todo en 
perfecto estado. Llamar a 
Modesto. Tel. (986) 25 37 92. O 
escribir a Modesto Otero Duran. 
Travesfa de Vigo, 275, 2.°, 
puerta 32. Vigo. 


jAtencion! Se vende el 
siguiente paquete de programas 
de juegos (en disco): 3DChess 
(castellano), Mercenario, Viernes 
13, Flight Pilot, Sorcery, Bomb 
Jack y Formula 1 por el precio de 
3.800 ptas. (disco incluido ). Para 
informacion escribir a Josep Sanchez 
R. Avda. San Narcfs, 99. 17005 
Gerona. 


Club de usuarios de 
Amstrad, en toda Espana, 
lequiere socios. Tenemos mas 


de 500 socios. A] inscribirte 
recibiras completamente gratis 
cinco juegos (a tu election). 
Tenemos gran variedad de 
juegos, pokes, ideas... Entre los 
juegos estan: Army Moves, 
Commando, The Way off the Tiger 
II, 3DStar Trike Iy 11, 1942... 
Para mas informacion dirigirse 
a Carlos Martin Mesa. Amatista, 
63. Getafe (Madrid) Tel. (91) 
682 80 69. 


BOUTIQUE DEL ORDENADOR 


AMSTRAD PCW ... 69.500 
AMSTRAD 464 _ 39.500 

Procedentes de exposicio- 
nes o cambios. Garantizados, 
impecables. 

Consulte para unidades de 
disco, impresoras, etc... 

ENVIOS A TODA ESPANA 
Tel.: (91) 416 13 02 (tardes) 


Vendo unidad de disco para 
CPC-664 y CPC-6128 casi a 
estrenar, precio muy 
interesante. Llamar o escribir a 
Jose Luis Ruiz. Cruz del sur, 3, 
4.° D. 28007 Madrid. Tel. 

274 84 77. 


NECESITAMOS 

personas 

que conozcan, 
profundamente, lenguaje 
Ensamblador del Z80 y 
dominen los ordenadores 
Amstrad CPC, desde el 
punto de vista del lenguaje 
Maquina. 

Si usted es uno de ellos, 
pongase en contacto con 
nosotros rapidamente en la 
direccion que se indica a 
continuacion, poniendo en 
lugar muy visible del sobre 
Referenda: Codigo 
Maquina AMSTRAD 
Semanal. 

Nuestra direccion es: 

AMSTRAD Semanal 

Ctra. de Irun. Km 12,400. 
Fuencarral (28049 Madrid) 
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Cigantes te espera coda martes en tu kicsco. Una revista impres- 
cindible para todo aficionado. Cigantes del Basket te ofrece las 
ultimas noticias, las mejores fotos, las cpinicnes que te interesan, 
las entrevistas que esperas, las anecdotas que te divierten y los 
los ccmentarios que te gusta conccer. 

Pidelc tcdas las semanas, porque Cigantes da la talla. 









Carkanoid (CPC 
664 - 6128 ) 

La semana pasada estudiamos unas rutinas que 
nos permitfan mover una raqueta y emular el 
movimiento de una bola con sus rebotes. Esta 
vez hemos realizado una mejora incluyendo 
tambien en la pantalla una serie de ladrillos que 
pondran nuestra tarea mas dificil. 

Respondiendo simplemente con «return» a la 
pregunta «Nombre... ?», obtendremos una 
pantalla de demostracion con la disposicion 
clasica de los ladrillos. 

Para disenar nuestras propias pantallas hemos 
creado el diseiiador de ladrillos, que le permitira 
de forma facil y sencilla hacer sus propias 
composiciones. Su utilizacion se detalla en el 
siguiente truco. 

La inclusion de la paleta con su movimiento no 
la hemos implementado, y dejamos al avido 
lector esta tarea que estamos seguros conseguira 
simplemente fundiendolo con el del numero 
anterior y realizando alguna pequena 
modificacion. 



10 REM -MURO- 

20 REM SOLO CPC 664 CPC 6126 
30 DEFINT a-z 
40 INK 0,1: INK 2-, 2-2 
50 BORDER 0 
60 MODE 1 

70 SYMBOL 254,0 ,254,254,254, 

254,254,254,0 

60 SYMBOL 255,0 ,127,127,127, 

127,127,127,0 
90 RANDOMIZE(TIME) 

100 REM DIBUJA PANTALLA 
110 INPUT ’’NOMBRE , . ; NOM$ 

120 CLS 

130 IF noxD$=”” THEN 340 

140 MODE 1 

150 OPENIN NOMS 

160 WHILE NOT EOF 

170 INPUT #9,A$ 

180 PRINT:PRINT a$; 

190 WEND 

200 PAPFR 0:PEN 1 

210 REM PROGEAMA PRINCIPAL 

220 pelota$=" o” 

230 x=INT<RND*20>*2:ix=l:iy=- 1 
: y=25 

240 IF x=0 THEN 230 
250 LOCATE x, y: IF COPYCHRS < #0 ) 
<>" ” THEN iy=*-iy: SOUND 5,401, 
3, 15 

260 LOCATE x,y:FRAME:PRINT pel 
ota$: 

270 IF x=l AND ix=~l THEN ix=i 

:SOUND 5,201,5,15 

280 IF x=39 AND ix=l THEN ix=- 

1;SOUND 5.201,5 ,15 

290 IF y =1 AND iy=-l THEN iy= 

1:SOUND 5,201,5,15 

300 IF y =25 AND iy= 1 THEN iy 

=-l:SOUND 5,201, 5,15 

310 LOCATE x.y: PRINT ” ; 

320 x=x+ix:y=y+iy 
330 GOTO 250 

340 FOR N=1 TO 20:A$«A$+CHE$<2 

55)+CHRS(254):NEXT 

350 PEINT:PEINT aS;:PRINT:PRIN 

T a$;:PRINT:FEINT a$;;PRINT:FR 

INT a$i 

360 GOTO 210 


Editor de ladrillos 


El objetivo de este programa es realizar las 
pantallas que despues podran ser utilizadas por el 
programa anterior. Una vez ejecutado el 
programa y que hayamos dado nombre a la 
pantalla, nos moveremos con las teclas del cursor. 
Para fijar un ladrillo pulsaremos el punto y para 
borrarlo, el «0». 


Una vez estemos convencidos de la disposicion 
de nuestros ladrillos pulsaremos «return» y 
automaticamente tendremos una copia de esta en 
el disco. 

Para utilizarlos ahora con el Carkanoid, 
tendremos que teclear el mismo nombre con el 
que fue grabado, cuando se nos solicite este. 
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10 REM - - 

20 REM SOLO CPC 664 CPC 6126 
30 DEFINT a-z 

40 INPUT "NOMBRE DE LA PANTALL 

A”;NOMBRES 

50 INK 0,1:INK 2,22 

60 BORDER 0 

70 MODE 1 

80 SYMBOL 254,255 ,1,1,1, 1,1,1, 

255 

90 SYMBOL 255,255,128,128,128, 

128, 128,128,255 

100 REM PROGRAMA PRINCIPAL 

110 Ladrillo$=CHR£<255)+CHKSf2 

54) 

120 x='l: y=l 

130 CURSOR 1,1 

140 WHILE teclaSOCHRSi 13) 

150 LOCATE x,y 

160 IF tecla$=”. ** THEN PRINT 1 
adrilloS;;x=x+2 
170 IF tecla$="0” THEN PRINT ” 
» , 

180' x—xl < tec 1 a£=CHR& (242 ) > *2- < 

teclaS=CHRS <243) )*2 

190 y=y+ C teclaS=CHR$<240 > ) 4-2- ( 

tecla$=CHE$C2411’%2 

200 IF X>39 THEN X=l:Y=?Y+2 

210 IF Y>25 THEN Y=1 

220 IF X<1 THEN X=38 

230 IF Y<1 THEN Y=25 

240 TECLA$=INKEYS 

250 WEND 

260 OFENOUT NOMBRES 

270 FOR y=l TO 23 STEP 2 

280 FOR x—1 TO 40:LOCATE x,y:A 

$=AS+COPYCHRS< #0 > 

290 NEXT: WRITE #9, AS; A$~' ! " : HEX 



Imageries fantasticas ► 

Como ya es habitual en esta section no podian 
faltar los programas graficos. En esta ocasion es 
un programa que nos permitira observar toda 
una serie de bonitos y variados dibujos. 



10 MODI 2 LOT 100,200 

20 FOR ang=0 TO 10 

21 MODE 2: PLOT 100,200 

30 FOR n=l rC 200 STEP 0.4 
40 DRAW -COS<N)*n+ang*n,20 

0+S1N < n > *n 
50 NEXT 
60 NEXT 
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Caracteres multicolores 

Por Jose Marfa Arbex 

Este pequeno truco permite obtener 
caracteres de dos colores, empleando solamente el 
Basic. La parte de arriba del caracter aparecera 
con el color de la pluma 1 y la parte de abajo 
con el de la pluma 3. En el caso de que no se 
redefinan los colores estos caracteres, seran 
amarillos y rojos. La idea del truco es muy 
simple. Se trata de redefinir cada caracter a ser 
impreso como su parte de arriba (4 bytes) y su 
parte de abajo (otros cuatro bytes), e imprimirlo 
con dos pasadas con distinto «pen», en modo 
transparente. El programa incluye un pequeno 
editor para probar su funcionamiento y esta 
preparado para ser utilizado en modo 1 o modo 
0, cambiando simplemente el valor de la variable 
MO de la lmea 20. 



Muevete 

L.i semana pasada pudimos ver como 
podfamos hacer entender a nuestro ordenador 
algunas de las cosas que sucedfan en su exterior a 
traves de la toma de Joystick. Si usted dispone de 
la version 664 6 6128 tambien podra realizar la 
operation inversa actuando a traves de la 
conexion remote. Para conseguir que algo se 
mueva fuera necesitara poner en su ingenio una 
conexion del mismo tipo que la de los cassettes 
convencionales. 

Para enviar una instruction de «en marcha» 
desde el ordenador, solo tendra que hacer un 
Call a &BC6E motor ON, y si desea 
desactivarlo, Call &BC71. 



20 mo— 0: MODE rao;SYMBOL AFTER 2 
56:SYMBOL AFTER 0 
30 nhi=HIMEM+521:hi = l: PRINT CH 
R$ (22)+CHRS (1) 

40 a$=”Escribe lo que quieras: 
'*: ret=l: FOR z=l TO LEN(aS) ; F$ 

=MID$CAS, Z, 1):x=x+l:GOSUB 60; N 
EXT:hi=4:x=l:ret=0:MOVE 0,380: 
CRAVE 356,0,2 

41 f &=INKEY$:IF f$="” THEN 41 
ELSE x=x+1: IF x=21+20*nio-20*<m 
o=2) THEN hi=hi+l:x~l 

50 IF f$=CHR$C127) AND x>l THE 
N PEN 0:PRINT CHRS <8)+CHRS<143 


)+CHRS< 8); :x=x-2:PEN 1:GOTO 41 
60 y- 8^<<ASC<fS)-64)-l)+nhi 
70 FOR des=0 TO 2 STEP 2 
80 IF des=0 THEN SYMBOL ASCCfS 
),PEEK <y),PEEK< y+1),PEEK(y+2), 
FEEK<y+3>,0,0,0,0 ELSE SYMBOL 
ASCCf*),0,0,0,0,PEEKCy+4),PEEK 
Cy+5),PEEKty+6),PEEK<y+7) 

90 LOCATE x,hi:PEN des+1:PRINT 
fS; 

100 SYMBOL AFTER 256:SYMBOL AF 
TER 0:NEXT:SOUND 1,286,1,15,,, 
1:IF ret =1 THEN RETURN ELSE 4 
1 
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Conversion a sistema 
binario 

El sistema binario resulta totalmente 
imprescindible para realizar multiples operaciones 
con el ordenador. 

Las formas de pasar un numero decimal a 
binario son multiples y variadas y esta que hoy 
proponemos puede considerarse como una de las 
mas logicas y rapidas. — 



10 REM CONVERSION DE BINARIO A 
DECIMAL 

20 INPUT "NUMERO BINARIO:, 

. . . . ..”, EINARIQS 

30 FOR N=LEN<BINARIOS) TO 1 ST 
EP -1 

4 0 DECIMAL=DECIMAL+VAL<MID$ <BI 
NAR10$,N, 1)>*2'<LBN < BINAR10$?- 
N) 

50 NEXT N 
60 PRINT DECIMAL 
70 RUN 




LOWER 


Mejor que UPPERS y 


UPPER 


LOWERS 

Si es usuario de un 664 o de un 6128 y desea 
que su CPC olvide las mayusculas, le bastara con 
hacer Poke(&B68B),peek(&B68D). Si desea lo 
contrario tendra que realizar la operation 
inversa: Poke(&B68D),peek(&B68B). 

En el caso de que disponga de un 464, las 
direcciones son ligeramente distintas. 

Para anular las minusculas: Poke(&B541),peek 
(&b543) 

Para anular las mayusculas: Poke(&B543),peek 
(&b541) 
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GEM Draw. El arte 
de dibujar con un PC 


Por: Fco. Javier Barcelo 

Cuando Alan Sugar 
diseho el Amstrad PC, 
decidio crear, por un precio 
realmente bajo (en piincipio), 
algo mas que un compatible 
PC (en principio). Eligio 
incluir el entomo grafico GEM, 
de Digital Research. 

Con ello, ademas de poner 
a disposicion de los usuarios 
una inmensa biblioteca 
de programas disehados para 
los PCs (en principio), multiplicaba 
la misma y su facilidad de uso a 
traces de los programas disehados 
en este entomo. 
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FICHA TECNICA 

Programa . 

GEM DRAW 

Sist. Operativo . . 

MS-DOS 3,20 

Ordenador mfnimo 

PC 1512 con 2 


unidades de disco 

Precio . . . .: 

22.300 

Distribuidor . .: 

Microbyte 


P 

.A. or AMSTRAD Semanal pasa hoy la 
primera version de un programa que pronto 
estara, en su version definitiva, en la calle: GEM 
Draw. Su orientacion esta en el campo del dibujo 
lineal, y sus caracterfsticas responden a lo 
deseado. 

El primer paso a dar con esta aplicacion es 
instalarla. Gracias a Dios, esto se realiza 
automaticamente, mediante el programa Instal que 
viene en el disco maestro. Con este programa se 
obtiene una copia de los programas mas 
importantes, bien en un disco flexible, o bien en 
el disco duro. El programa principal, tal y como 
vienen configuradas todas las aplicaciones de 
GEM, queda instalado en el subdirectorio (o 
carpeta) GEMAPPS, pero en cualquier caso es 
necesario tener el disco maestro introducido en el 
ordenador para poner en marcha el programa, 
debido a la proteccion anti-pirateo que incorpora. 
La aplicacion viene acompanada de dos carpetas 
con dibujos de ejemplos, que dan una idea de la 
potencia del programa. 

Una vez en marcha, aparece la pantalla 
principal, en la que la primera fila esta dedicada 


a los indices de los distintos menus disponibles y 
la primera columna a los tipos de trazos que se 
pueden realizar. 

El dibujo 

Para empezar a dibujar, llevando el puntero a 
la columna izquierda, se elige el tipo de figura 
que se va a realizar. Podemos seleccionar 
rectangulos, elipses, cfrculos, polfgonos, arcos, 
lfneas y textos. Una vez escogida la figura, se 
coloca el cursor en el punto donde se quiere 
empezar a dibujar, y se aprieta el boton 
izquierdo del raton. Ahora, se traslada el raton 
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Mundo del 

PC 


por la pantalla y, segun la figura elegida, se va 
creando el dibujo. Una vez que se tiene la forma 
deseada, se suelta el boton del raton y queda 
fijada. Ahora se puede elegir otra figura para 
continuar el dibujo, o mover la parte 
seleccionada por la pantalla para colocarla en el 
lugar deseado. 

Ademas del dibujo propiamente dicho, se 
pueden duplicar las imagenes, moverlas por la 
pantalla, centrarlas o alinearlas automaticamente 
y modificarlas. Para ello, lo primero que hay que 
hacer es seleccionar la parte del dibujo en la que 
se va a operar. Si se desea funcionar con varias 
partes del dibujo a la vez, hay que agruparlas 
previamente, dado que cada vez que se realiza 
un tramo del dibujo, el programa lo considera 
una parte distinta. 

La utilidad mas importante es una mano 
dibujada en la columna izquierda. A1 
seleccionarla con el puntero, se puede elegir una 
parte del dibujo, o agrupar determinados 
elementos, y, en general, hacer uso de los menus 
de la primera fila, operando solo con la parte 
seleccionada. 

El texto se puede colocar en cualquier parte, 
en dos tipos de letras distintas y varios tamanos 



A pesar de estar dirigido al dibujo lineal, puede usarse con 
cierto exito en el artistico. 



diferentes, pudiendose tambien mover y centrar 
automaticamente. 

A la hora de realizar dibujos profesionales, en 
cuanto se familiariza uno con el programa, los 
resultados pueden ser asombrosos. La facilidad 
del zoom para ampliar permit© dibujar con gran 
detalle cualquier cosa, y apoyandose en 
herramientas como la regia, de escala regulable 
(desgraciadamente solo en pulgadas) o la 
cuadricula, tambien de tarnano variable, evita la 
perdida de referencias. No obstante, para alinear 
o centrar el texto es conveniente tener el zoom 
sin ampliar, dado que lo que se ve aumentado en 
la pantalla es parte del dibujo, y al imprimirlo 
todo, la figura o texto pueden no estar centradas. 


Dispone de 
una serie de 
menus i 
explicaciones 
que ayudan a 
su facil 
manejo. 


Menus 

Ficheros. Incorpora funciones para cargar un 
dibujo del disco, salvarlo, cambiarlo de nombre, 
y conectar con la aplicacion “OUTPUT” que 
permite imprimir los dibujos y salvarlos en disco 



El detalle con 
el que permite 
trabajar es 
una de las 
mayores 
ventajas del 
GEM Draw. 
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especificar para cada dibujo, pero no en la opcion 
de impresion OUTPUT. 

Ordenar. En caso de varias figuras, a traves de 
este menu se pueden centrar en el papel, 
alinearlas a izquierda o derecha. Agrupar varias 
en una, desagruparlas, y repartirlas por el papel 
uniformemente. Para operar con cualquier 
comando, tienen que estar seleccionadas las 
partes de la imagen a ordenar. 

Fondos. Treinta y nueve fondos de papel, ni 
mas ni menos, se pueden elegir para dibujar 
encima de ellos. Se puede seleccionar un area 
para un determinado fondo, y cambiar de area 
para otro fondo, de manera ilimitada, como se 
ve, casi nada... 

Limas. Se puede elegir Ixnea continua o tres 
tipos de lfnea discontinua, cuatro grosores 
distintos de cada tipo, y si se desea que las lineas 
senalen los vertices con cabeza en forma de 
flecha. De esta manera, se pueden resaltar las 
partes del dibujo que se deseen. Aunque es mas 
aconsejable realizar primero todo el dibujo con 


Los mapas pueden ser una de las aplicaciones mas utiles 
del programa. 

en modo de “IMAGEN”. (Por cierto, si logran 
un dibujo bonito, y quieren que aparezca al 
arrancarse el ordenador, basta con salvarlo en 
este modo e incluir en el fichero 
AUTOEXEC.BAT que esta en el disco de 
arranque, lfnea TYPE DIBUJO.EXT.) 

Editar. Permite seleccionar una parte del 
dibujo, recuperar una parte borrada, duplicar 
una parte seleccionada previamente y agrupar 
todo el dibujo en una sola «seleccion». 

Fuentes. Incorpora dos tipos de letras para los 
textos, eligiendose dentro de estas seis tamanos 
diferentes, asf como el tipo de impresion, entre 
«negrita», «italica», «subrayada» y normal. 

Pagina. Permite optar entre imagen normal, 
ampliada o reducida, y si se desea disponer de 
regia numerada, su escala, y si se desea dibujar 
sobre una trama o cuadrfcula, el tamano de esta. 
Tambien permite elegir si el dibujo se desea 
poner sobre el papel en forma horizontal o 
vertical, asf como el tamano de la hoja. Pero la 
parte fundamental es dar la medida de la hoja en 
la que se va a imprimir, dado que se puede 





idin" 


tr 


lineas finas, y posteriormente cambiar las lfneas 
que se deseen. 

Color. Hasta 16 colores se pueden combinar en 
pantalla para aumentar la vistosidad del dibujo, 
aunque naturalmente a la hora de imprimir esto 
resulte indiferente. 


Complementos 

GEA4 Draw proporciona (no se sabe todavia si 
incluido en el mismo paquete, o por separado), 
ademas, un disco de librerfa, donde ya vienen 
realizados multitud de disenos para utilizar en los 
dibujos. El GEM Draw library incluye 40 bordes 
diferentes para adornar los dibujos, asf como un 
sinffn de sfmbolos, utilizados en electricidad. 
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CONDUCTORES CRUZADOS FRECUENCIA SUPERAUDIO CA 



CONDUCTORES UNIOOS 


I \/ I 
I /\ 1— 


UNA FASE 


2 FASES, « CONDUCTORES 


2 FASES, 3 CONDUCTORES 


Y A V 


Simbolos graficos que forman una de las 
bibliotecas de GEM DRAW. 

informatica, empresa. etc. 

Todos estos signos se pueden utilizar 
posteriormente en dibujos, mezclandolos, 
moviendolos y cambiando su tamano. 

Estc disquete viene, ademas, con instrucciones 
grabadas en disco, de manera que se pueden 
consultar por pantalla o imprimir a traves del 
programa OUTPUT, quedando un pequeno 
manual de consulta francamente curioso y 
esteticamente perfecto. 


Conclusion 

GEM Draw esta claramente enfocado al dibujo 
lineal, y cumple con su cometido perfectamente. 
Probablemente, al principio resulte un poco dificil 
acostumbrarse al manejo del raton, por lo que es 



Poder manejar variiis pantallas simultancamcnte es unu de los 
mayores atractivos del GEM Draw. 



En diseno industrial, a pesar de no ser la herramienta 



aconsejable realizar varias pruebas cambiando la 
sensibilidad del mismo a traves del programa de 
instalacion del GEM. Una vez superada esta 
dificultad, el manejo no ofrece complicaciones. 

Desde luego, este programa hara que mas de 
un estudiante de ingenieria o arquitectura realice 
las laminas de clase con esta herramienta, 
olvidando el tablero y la goma de borrar. Total, 
luego se le pasa el rotring... 

Aunquc quiza un poco «espartano» en algunas 
opciones, el nivel general del programa es muy 
bueno, y el limite de complicacion de los dibujos 
que se pueden hacer se antoja muy alto. (Con 
Plotter ya que puede ser la pern...) 

No podemos hablar del manual, dado que al 
ser esta una version preliminar, no nos ha sido 
facilitado todavia, pero tampoco es algo 
fundamental. Su manejo no presenta ningun 
problema, como todos los programas de GEM. 


una parte del 
dibujo, uno de 
sus elementos, 
podremos 
realizar en el 
sojisticadas 
modijicaciones. 
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Dos mundos. Uno positivo y familiar; el 
otro, negativo, diabolico y desconocido. Su 
union, un agujero en el tiempo y en el es- 
pacio a traves del cual pasan los objetos. 
Tu mision es pasar de un mundo a otro 
mundo hasta recuperar las cosas que ban 
sido robadas y transportadas al mundo os- 
curo. Pero date prisa, al pasar el tiempo 
todo sera mas dificiL 




PULSATOR 

Un clasico juego de marcianos que te 
mantendra pegado al ordenador durante 
horas. 

Cinco niveles con 49 pantallas cada uno 
Una locura, <j,no? 


■% 

■4 


Basado en el judo, “Uchi-Mata”, es proba- 
blemente el mas avanzado y completo de 
los simuladores de artes marciales existen- 
tes. El juego ha sido disenado bajo el ase- 
soramiento de Brian Jacks, cinturon negro, 
7 ° Dan, cuatro veces campeon de Europa 
y Medalla Olimpica, uno de los mejores lu- 
chadores de judo del mundo, 


KuA/£&LtAt*f 


SHAO LINS ROAD 

El juego de Konami de mayor exito en las 
maquinas, en version ahora para tu orde¬ 
nador. Ayuda a Shao Lin a escapar de sus 
multiples enemigos en su eamino hacia la 
libertad. Salta, pega, agachate y esquiva 
los punales... Acciona tope. 
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Como en las clasicas peliculas del Lejano 
Oeste, estaras en el centre de la action 
desde el principio. Asaltos al tren, lucha 
sobre los vagones, cabalga sobre tu rapido 
caballo... Express Raider lo tiene todo. 




SIGMA 7 


Toda la action de los juegos espaciales, 
en este fabuloso juego tridimensional. Un 
autentico derroche de imagination con sie- 
te niveles diferentes y totalmente distintos. 
Montate en tu nave y abrochate el cintu¬ 
ron, el despegue es inminente. 
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EL MOMENTO 


WARLOCK 

Encuentra el “Cristal del Poder” y comb'ate 
contra dragones, demonios y guerreros 
hasta encontrar al “Mago Blanco’’ para la 
lucha final, 

Quiza tengas en tu pantalla los mas im- 
presionantes graficos en 3 dimensiones 
que hayas visto jamas. 


rr 


SOLO 
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ptas, 


FIST II 

La deseada continuation de “Exploding 
Fist” ya es una realidad; Fist II es mucho 
mas que una segunda parte: mas de 100 
pantallas y 700 sprites diferentes, en las 
que los oponentes al Gran Maestro se es- 
conden en bosques, acantilados, cavernas 
y iugares con paisajes que te asombraran. 




%. ♦ 


SHADOW SKIMMER 

Un sorprendente super-suave, super-rapi- 
do juego de combate espacial que presen¬ 
ts increibles pantallas llenas de colorido y 
accion como nunca antes habras experi- 
mentado. 





LOS MASTERS 
DELUNIVERSO 


Los heroes de los dibujos del T.V. con el 
celebre He-Man al frente van a luchar con¬ 
tra Skeletor, el Senor de las Fuerzas del 
Mai en una alucinante aventura en el casti- 
llo de Grayskull. Tu eres el protagonists. 


* • 
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CORTO CIRCUITO 


Era una posibilidad entre un millon, pero el 
N.° 5, disenado para ser un sistema de ar- 
mamento dotado de inteligencia artificial, el 
mas sofisticado robot del planeta, se esca- 
po y se dio cuenta que estaba vivo. Ahora, 
el cientifico que le construyo quiere encon- 
trarle y destruirle. 

Tu eres el N.° 5, no te dejes atrapar. 


PALITRON 

jjEs un juego insolitoH Por primera vez, un 
juego te permite no solo guiar a su prota¬ 
gonists, un robot Servo D27, en su intento 
de localizar y destruir los cristales de un 
extrano mineral que esta acabando con la 
vida en Palitron, si no que tambien te per¬ 
mite programar a otros robots para que te 
ayuden. Y todo con un color y unos grafi¬ 
cos extraordinarios. 
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Espia de graficos 

Por: Alberto Suffer 


Hay determinados graficos que merecen ser grabados. Con otros se 
podrian hacer unas cuantas modificaciones que los mejovarian. 
Incluso, dquien no ha sohado con introducir su personaje favorito en 
ese programa que tanto le divierte? El objetivo de este programa es, 
precisamente, ayudarle a buscar y «espiar» todos esos graficos. 


E 

M xisten muchos programas en el mereado, 
en los cuales aparecen unos graficos 
verdaderamente bonitos, con movimientos tan 
perfectos que parecen otorgarles vida propia. 

Estos graficos han sido realizados por 
verdaderos artistas o bien han sido digitalizados 
de imagenes de video o de dibujos extraidos de 
diversos comics. 

Ahora bien, nosotros unicamente podemos 
visualizarlos, cuando estamos ejecutando el 
programa, e incluso algunos de estos graficos 
quiza no los podamos ver nunca, debido a que se 
encuentren en una fase del juego que sea de 
dificil acceso y a la cual haga falta mucho tiempo 
y habilidad para conseguir llegar. 

En cualquier caso, aunque se puedan visualizar 
en alguna ocasion, siempre que deseemos 
observar dicho grafico, o mostrarselo a alguien, 
deberemos cargar el juego, y llegar a la fase en 
que se encuentra el mismo. 

Aparte de esta circunstancia, si queremos 
observar atentamente la secuencia de 
movimiento, nos sera imposible, ya que no 
podremos aislar el grafico a estudiar del entorno 
que lo rodea. 

Por otra parte, quiza alguno de nosotros haya 
pensado alguna vez en almacenar los mejores 
graficos que aparecen en los programas 
comerciales, por separado, para poderlos sacar 
por impresora, o bien unicamente para 
visualizarlos cada vez que lo deseemos. 

Ahora bien, el problema que se nos plantea, es 
saber en que direccion de memoria se encuentra 
cada uno de estos graficos, para poderlos salvar 
en disco o cinta por separado. 

Para evitar este problema, hoy os presentamos 
un programa que os permitira revisar la 
memoria, mostrandonos en pantalla todo lo que 
en ella se encuentra, para de esta forma 
conseguir localizar todos y cada uno de los 
graficos de que esta compuesto cada juego. 

Este programa consta de dos bloques, uno de 
ellos en Basic y otro en Codigo Maquina. El 
bloque en Basic nos permitira cargar el bloque 


que se desee visualizar, en memoria, y ademas 
nos permitira salvar la ventana que se encuentre 
en pantalla en cada momcnto. 

La rutina en Codigo Maquina, es la que sc 
encarga de tomar el contenido de la memoria y 
pasarlo a pantalla, ademas de otras muchas 
opciones que se indicaran mas adelante. 


Utilizacion del programa 


El funcionamiento es extremadamente sencillo. 
Ademas nos ofrece toda la information referente 
a la ventana que se encuentra en pantalla. en la 
parte inferior de la misma. 

A continuation indicaremos cada una de las opciones 
posibles, y las teclas con las que se pod ran ejecutar 

• Cursor arriba: incrementa la direccibn de 
memoria tantos bytes como ancha sea la ventana. 

• Cursor abajo: decrementa la direccion de 
memoria tantos bytes como ancha sea la ventana. 

• Cursor derecha: incrementa la direccion de 
memoria. 
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PROGRAMA CARGADOR 

1 REM ESPIA DE GRAFICOS 

2 REM PEOGEAMA CAEGADOE 

10 FOE N= 

&9000 TO &928A 

20 EEAD A 

:SUMA=SUMA+A 

30 POKE N 
40 NEXT 

, A _—■ 

0 

50 IF SUMA<>58695 THEN PRINT ”EEEOR ~ 20 

EN 

DATAS 

" e'S.r 

60 DATA 62,1,205,199,5,62,40 54 C 

70 DATA 50,111,6,62,10,50,112 55 

80 DATA 6,33,0,0,34,107,6 56 

90 DATA 205,24,167,62,54,205,30 57 

100 

DATA 

187,192,62,9,205,30,187 5 e 

110 

DATA 

40,3,205,81,5,62,0 g( 

120 

DATA 

205,30,187,40,3,205,204 5 

130 

DATA 

4,62,2,205.30,187,40 6 

140 

DATA 

3,205,221,4,62,8,205 i e 

150 

DATA 

30,167,40,3,205,241,4 l 

160 

DATA 

62,1,205,30,187,40,3 l 

170 

DATA 

205,252,4,62,15,205,30 l 

180 

DATA 

187,40,7,62,0,205,199 l 

190 

DATA 

5,24,44,62,13,205,30 \ 

200 

DATA 

187,40,7,62,1,205,199 \ 

210 

DATA 

5,24,30,62,14,205,30 \ 

220 

DATA 

187,40,7,62,2,205,199 \ 

230 

DATA 

5,24,16,62,38,205,30 \ 

240 

DATA 

187,196,119,4,62,46,205 l 

250 

DATA 

30,187,196,130,4,205,144 \ 

260 

DATA 

4,24,134,42,107,6,17 \ 

270 

DATA 

100,0,25,34,107,6,201 ' 

| 280 

DATA 

42,107,6,55,63,17,100 

290 

DATA 

0,237,82,34,107,6,201 

300 

DATA 

33,0,0,205,26,188,253 

310 

DATA 

42,107,6,58,111,6,71 

320 

DATA 

24,21,124,230,56,254,56 

330 

DATA 

40,6,124,198,8,103,24 

340 

DATA 

8 , 17, 80, 0, 124,238,56 

350 

DATA 

103,25,197,229,58,112,6 

360 

DATA 

71,253, 126,0, 119, 253,35 

370 

DATA 

35, 16, 247,225, 193,16,216 

380 

DATA 

205,7,5,201,42,107,6 

390 

DATA 

58,112,6,95,22,0,25 

400 

DATA 

34,107,6,205,144,4,201 

410 

DATA 

42, 107,6,58, 112, 6 ,95 

420 

DATA 

22,0,55,63,237,82,34 

430 

DATA 

107,6,205,144,4,201,42 

440 

DATA 

107,6,35,34, 107, 6,205 

I 450 

DATA 

144,4,201,42,107,6,43 

460 

DATA 

34,107,6,205,144,4,201 

470 

DATA 

33,23,14,205,117,187,42 

480 

DATA 

107, 6,205,222,5,58,112 

490 

DATA 

6,71,33,0,0,22, 0 

500 

DATA 

58,111,6,95,25,16,253 


Grdficos por 

ORDENADOR 


4, 1 4 K 

222. 5 


r .-.99, 33 . 
i09, 6 ' „ -76.205, 

-‘riY, 187 ’' ri 003,6- 
3 'h k. 203,6^'-; 4 .20 


640 BATA f,,,;. 198,5^-^.201 
630 DATA c 0 Ul. 6,6 °i' 8 254,0 
660 0 tT 6 1,”'ill,6.21*'1^,190.6 

(=,&0 DA--A _, n1 Bg.U 4 ' ^’nno 190,5 
690 p«‘ loV.io.^'I'.eo'.^-H 
700 SrA 201.55- "^’6,205,1-®’ 4 4 

7 ,i°„ 8 K 

760 t*T» i 0 9 5,«.%l°'46 6, U- 38 

740 BATA 488,1^5, j.7,10 

750 DATA „ U 55,6 2 * V,’ =5,17 
760 DATA o’, 205,6.5. ■* c ^ 60 ,23V 
77 O P^A- .I- , 35 « ^ * iq 6, ^ 

III »w» 

750 DAB A |^2,3.5°'V- '100,0,65 
800 BATA -'oS.lB- 6 ' 1 ^! 205.1®- 6 
810 DATA * ? _ 82, 48 ’ X, 3 7 , 82, 48 0 

820 BABA "7,10,0. D °•, 3 3,205, 1 J 
880 BABA l; 205. I* 5 ’ V 18" ■ ®2, 4 ^ 
p 40 BABA 251.- 2 o5,90,I 8 ol _ 213 ^ 

850 BABA 5- 4 35,25,3-- 26 , 2 54,-< 

So DAB A 1^,112,487-^40,24,24^ 
6 V 0 DABA 300,205,90, 7 A i6 ,205 
88 ° BAiA 33 i 23.1 ,1 ’ 47,80 

8©0 BABA 0 , 6 , 3 s.- 4 - ^3,25,1 
qOO BABA 205,30.6, e,68 

910 BABA 6-^ 3 i 6 ,495,30. 3i? o 
020 BABA 1 82,69,°'L- 7 q.78. ?1 

930 BABA 7 78 ',5&,255- ;% 6 ; 2 55,65 
940 BABA - 6 - & 4 , 86 , 66 . -° • 32 , 6 5 
950 BABA ^ & 4 ,79, 8 ^ 53 ,255,0 
96 O DAI ft 37,7 c..'-’ 

970 St a n-0’°’ 0,0, S -I- 

98 O DAI" --- 


mm 
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• Cursor 
izquierda: 
decrementa la 
direccion de 
memoria. 

• M: 

incremento 
rapido de la 
direccion de 
memoria. 

• N: decremento rapido 
de la direccion de 
memoria. 

• B: retorna a Basic. 

• F2: muestra la 


ventana en modo 2. 

• FI: muestra la ventana en modo 1. 

• FO: muestra la ventana en modo 0. 

• COPIA: modifica anchura y altura de la ventana. 

Una vez dentro de la opcion COPIA, 

tendremos las siguientes posibilidades: 

Cursor arriba: aumenta la altura de la 
ventana. 

Cursor abajo: decrementa la altura de la 
ventana. 

Cursor derecha: aumenta la anchura de la 
ventana. 

Cursor izquierda: decrementa la anchura de la 
ventana. 

ENTER: abandono de esta opcion. 

Ademas, en la parte inferior de la pantalla, 
aparecera informacion sobre la ventana que se 
esta visualizando. Esta nos indicara la direccion 
de memoria que se esta visualizando, la anchura 
y altura de la ventana y la longitud que ocupa. 


Direccion: 00000 
Longitud: 00128 
Alto x Ancho: 04 x 04. 


Vamos a ver ahora cual es el metodo a seguir 
para intentar localizar los graficos que se 
encuentran en memoria. 

En primer lugar, deberemos cargar el 
programa Basic, cjue se encargara de introducir 
en memoria la rutina en Codigo Maquina, Una 
vez ejecutado el programa, se nos pedira el 
nombre del bloque que se desea visualizar en 
pantalla, y se cargara a partir de la direccion 1700. 

Debemos tener en cuenta que la longitud del 
bloque a cargar en memoria, no debe sobrepasar 
los 39 kbytes, ya que de lo contrario no se 
admitira la carga al sobrepasar la memoria disponible. 

En este momento estamos en condiciones de 
buscar los graficos que se encuentran en memoria 
y para ello nos ayudaremos de las teclas de cursor. 

Se ha de tener en cuenta que, dado que los 
graficos estan almacenados en memoria en forma 
de bloques de dimensiones determinadas, 
nosotros deberemos ir modificando la altura y 
anchura de la ventana hasta que coincidan con la 
del grafico en memoria, de lo contrario no 
podriamos distinguir ningun grafico. 

Debemos tambien fijarnos en el modo de 


pantalla, ya que un grafico realizado en un 
determinado modo, no es reconocible en un 
modo distinto. 

Asi pues, deberemos ir modificando tanto el 
modo de pantalla, como las dimensiones de la 
ventana, hasta localizar el grafico deseado. 

En un principio quiza nos parezca algo dificil 
conseguir localizar algun grafico, pero una vez sc 
haya utilizado varias veces este programa, nos 
resultara realmente muy facil localizar cada uno 
de los graficos que se encuentren en memoria. 

Para hacer mas sencilla la busqueda de graficos 
por primera vez, vamos a dar a continuacion una 
serie de recomendaciones o consejos para 
habituarnos rapidamente a su utilizacion. 

En primer lugar diremos que en cualquier 
programa, por lo general, los graficos se 
encuentran ubicados en una misma zona. 

Cuando hayamos encontrado el primero, los 
restantes estaran a continuacion de este. 

Si nos encontramos en esta situacion, 
unicamente deberemos ir alterando las 
dimensiones de la ventana, para poder visualizar 
cada uno de los graficos. 


Como encontrar los graficos 

En caso de que nos resulte dificil encontrar el 
primer grafico, deberemos dar una pasada rapida 
por toda la memoria utilizando la opcion M o N, 
desechando todas aquellas zonas en las que se 
visualicen en la ventana formas sin ningun senticlo. 

Pasa por la zona donde se encuentra algun 
grafico, aunque las dimensiones de la ventana no 
sean las mismas que las de este, se visualizaran 
unos rasgos que nos indicaran si se trata de un 
grafico, por lo que deberemos modificar las 
dimensiones de nuestra ventana. 

En caso de que aun no se haya localizado 
ningun grafico, deberemos ejecutar la misma 
operacion, pero esta vez cambiando el modo de 
pantalla con cualquiera de las teclas 
correspondientes a dicha opcion. 

Una vez localizado el grafico o graficos 
deseados, podremos salvarlos en cinta o disco, 
pulsando la tecla B, con lo cual volveremos al 
Basic que nos pedira el nombre que le queremos 
dar a dicha figura. 

Debemos advertir, cjue aunque el programa se 
ejecute en pantalla en modo 1, los graficos 
pueden estar almacenados en memoria en modo 
2, por tanto deberemos revisar la memoria en 
cualquiera de dichos modos hasta encontrar el 
adecuado. Diremos tambien que por lo general si 
un progrma se ejecuta en modo 0, los graficos 
tambien se encontraran en dicho modo. 

Otra de las posibilidades que nos ofrece este 
programa, es averiguar las direcciones de 
memoria en que se encuentran cada uno de los graficos. 

Esto nos puede servir para incorporar nuestros 
propios graficos a cualquier programa comercial, para 
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1 

jESPIA 

DE GEAFICOS 

10 


ORG 

1000 

20 


LD 

A, 1 

30 


CALL 

CLS 

40 


LD 

A, 40 

50 


LD 

(ALTO),A 

60 


LD 

A, 10 

70 


LD 

(ANCHO),A 

80 


LD 

HL, 0 

90 


LD 

(DIRMEM),HL 

100 

TECL: 

CALL 

#BBie 

110 


LD 

A, 54 

120 


CALL 

#BB1E 

130 


RET 

NZ 

140 


LD 

A,9 

150 


CALL 

#BB1E 

160 


JR 

Z, NOTE 

170 


CALL 

GRADUA 

180 

NOTE 

LD 

A, 0 

190 


CALL 

#BB1E 

200 


JR 

Z,NOTE1 

210 


CALL 

UP 

220 

NOTE1: 

LD 

A, 2 

230 


CALL 

#BB1E 

240 


JR 

Z.NOTE2 

250 


CALL 

DOWN 

260 

N0TE2: 

LD 

A, 6 

270 


CALL 

#BB1E 

280 


JR 

Z, NOTE3 

290 


CALL 

IZQ 

300 

NOTE3: 

LD 

A, 1 

310 


CALL 

#BB1E 

320 


JR 

Z, N0TE4 

330 


CALL 

DER 

340 

NOTE4: 

LD 

A, 15 

350 


CALL 

#BB1E 

360 


JR 

Z. NOTES 

370 


LD 

A, 0 

380 


CALL 

CLS 

390 


JR 

PANTAL 

400 

NOTE5: 

LD 

A, 13 

410 


CALL 

#BB1E 

420 


JR 

Z,NOTE6 

430 


LD 

A, 1 

440 


CALL 

CLS 

450 


JR 

PANTAL 

460 

NOTE©: 

LD 

A, 14 

470 


CALL 

#BB1E 

480 


JR 

Z,N0TE7 

490 


LD 

A,2 

500 


CALL 

CLS 

510 


JR 

PANTAL 

520 

NOTE?: 

LD 

A, 38 


Grdficos por 

ORDENADOR 


530 


CALL 

#BB1E 


970 


INC 

IY 

540 


CALL 

NZ,ADMEM 


960 


INC 

HL 

550 


LD 

A. 46 


990 


DJNZ 

P_BUC1 

560 


CALL 

#BB1E 


1000 


POP 

HL 

570 


CALL 

NZ,SUBMEM 


1010 


POP 

BC 

580 

PANTAL: 

CALL 

PINTA 


1020 


DJNZ 

P BUC 

590 


JR 

TECL 


1030 


CALL 

PINDIR 

600 

ADMEM: 

LD 

HL,(DIRMEK) 


1040 


RET 


610 


LD 

DE,100 


1050 

UP: 

LD 

HL,(DIRMEM) 

620 


ADD 

HL, DE 


1060 


LD 

A, (ANCHO) 

630 


LD 

(DIRMEK) , HL) 


1070 


LD 

E, A 

640 


RET 



1080 


LD 

D, 0 

650 

SUBMEM: 

LD 

HL,(DIRMEM) 


1090 


ADD 

HL. DE 

660 


SCF 



1100 


LD 

(DIRMEM),HL 

670 


CCF 



1110 


CALL 

PINTA 

680 


LD 

DE, 100 


1120 


RET 


690 


SBC 

HL, DE 


1130 

DOWN: 

LD 

HL,(DIRMEM) 

700 


LD 

(DIRMEM) , HL 


1140 


LD 

A,(ANCHO) 

710 


RET 



1150 


1«U 

E, A 

720 

PINTA: 

LD 

HL, 0 


1160 


LD 

D, 0 

730 


CALL 

#BC1A 


1170 


SCF 


740 


LD 

IY,(DIRMEM) 


1180 


CCF 


750 


LD 

A,(ALTO) 


1190 


SBC 

HL, DE 

760 


LD 

B, A 


1200 


LD 

(DIRMEM) , HL 

770 


JR 

PINT 


1210 


CALL 

PINTA 

780 

P BUC: 

LD 

A, H 


1220 


RET 


790 


AND 

56 


1230 

IZQ: 

LD 

HL,(DIRMEK) 

600 


CP 

56 


1240 


INC 

HL 

610 


JR 

Z.P PAS 


1250 


LD 

< DIRKBK), HD 

820 


LD 

A, H 


1260 


CALL 

PINTA 

830 


ADD 

A, 8 


1270 


RET 


840 


LD 

H, A 


1260 

DER: 

LD 

HL, (DIRMEM) 

850 


JR 

PINT 


1290 


DEC 

HL 

860 

P PAS: 

LD 

DE,0080 


1300 


LD 

(DIRMEM) , HL 

870 


LD 

A, H 


1310 


CALL 

PINTA 

880 


XOR 

56 


1320 


RET 


890 


LD 

H, A 


1330 

FINDIR 

LD 

HL,#0E17 

900 


ADD 

HL. DE 


1340 


CALL 

#BB75 

910 

PINT 

PUSH 

BC 


1350 


LD 

HL,(DIRMEK) 

920 


PUSH 

HL 


1360 


CALL 

PI RUM 

930 


LD 

A.(ANCHO) 


1370 


LD 

A, (ANCHO) 

940 


LD 

B. A 


1380 


LD 

B, A 

950 

P BUC1: 

LD 

A,(IY+0) 


1390 


LD 

HL, 0 

960 


LD 

(HL),A 


1400 


LD 

D. 0 


poder, de esta forma, jugar a nuestra aventura 
preferida ton un personaje creado por nosotros 
mismos. 

Para poder hacer esto ultimo, deberemos tener en 
cuenta que el nuevo grafico sea de las mismas 
dimensiones que el que se desea sustituir. 

Otra posibilidad que existe es la de modificar las 
figuras de cualquier programa a nuestro antojo, y 
luego volverlas a cargar, con lo que el programa se 
ejecutara con los graficos alterados. 

Por ultimo, solo queda decir que para poder 
disfrutar con esta rutina, unicamente debereis copiar 
el listado Basic, ademas del listado ensamblador, que 
aparece al final del artfculo. 

Aquellos que lo deseen pueden teclear el cargador 
Basic, y una vez ejecutado sin errores, salvar el codigo 
objeto de la forma que se indica: 

SAVE”MIRBIN” ,B, 1000,650 

Para cargar el programa en memoria, unicamente 
deberemos ejecutar el programa Basic, el cual cargara 
el ClndiPT) Marinina e inicializara el nrograma. 













Graficos por 

ORDENADOR 


1410 


LD 

A,(ALTO) 

1420 


LD 

E, A 

1430 

BUSUM: 

ADD 

HL, DE 

1440 


DJNZ 

BUSUM 

1450 


LD 

(LONG).HL 

1460 


PUSH 

HL 

1470 


LD 

HL,#0E18 

1460 


CALL 

#BB75 

1490 


POP 

HL 

1500 


CALL 

PINUM 

1510 


LD 

A,(ALTO) 

1520 


SRL 

A 

1530 


SRL 

A 

1540 


SRL 

A 

1550 


PUSH 

AF 

1560 


LD 

HL,#0E19 

1570 


CALL 

#BB75 

1560 


POP 

AF 

1590 


CALL 

PINU1 

1600 


LD 

A. "X" 

1610 


CALL 

#BB5A 

1620 


LD 

A,(ANCHO) 

1630 


CALL 

PINU1 

1640 


RET 


1650 

GRADUA: 

CALL 

#BB18 

1660 


LD 

A, 18 

1670 


CALL 

#BB1E 

1680 


RET 

NZ 

1690 


LD 

A. 0 

1700 


CALL 

#BB1E 

1710 


JR 

Z, NOTC 

1720 


CALL 

ARRI 

1730 

NOTC. 

LD 

A,2 

1740 


CALL 

#BB1E 

1750 


JR 

Z,NOTC1 

1760 


CALL 

ABAJ 

1770 

NOTC1: 

LD 

A ,8 

1760 


CALL 

#BB1E 

1790 


JR 

Z.N0TC2 

1800 


CALL 

LEFT 

1810 

NOTC2; 

LD 

A, 1 

1820 


CALL 

#BB1E 

1630 


JR 

Z,GRADUA 

1640 


CALL 

RIGHT 

1850 


JR 

GRADUA 

1660 

ARRI: 

LD 

A,(ALTO) 

1870 


ADD 

A ,8 

I860 


CP 

208 


1690 

1900 

1910 

1920 

1930 ABAJ: 

1940 

1950 

1960 

1970 

1960 

1990 

2000 LEFT: 
2010 
2020 
2030 
2040 
2050 
2060 

2070 EIGHT: 
2060 
2090 
2100 
2110 
2120 
2130 

2140 KEFON: 
2150 
2160 
2170 
2160 

2190 CLS: 
2200 
2210 
2220 
2230 
2240 


RET Z 

LD (ALTO),A 
GALL REPOS 
RET 

A, (ALTO) 
6 
0 

Z 

(ALTO),A 


LD 

SUB 

CP 

RET 

LD 


CALL REFON 
RET 

LD A,(ANCHO) 
DEC A 
CP 0 
RET Z 

LD (ANCHO),A 
CALL REPON 
RET 

LD A,(ANCHO) 
INC A 
CP 61 
RET Z 

LD (ANCHO),A 
CALL REFON 
RET 

CALL NBC 14 
CALL PINTA 
JP TEXTOS 


2420 
2430 
2440 
2450 

f 460 MIL; 
2470 
2460 
2490 
2500 

2510 CIEN- 
2520 
2530 
2540 
2550 

2560 DIEZ- 
2570 
2560 
2590 
2600 
2610 
2620 

2630 PRjet- 
2640 
2650 
2660 

2670 p As . 

2600 

2690 

2700 J 


hl,de 

C* ffC.DJIIL 
CALL PflllTT 

INC 

HL, DE 
£* *C.XIL 
CALL PRikx 

LD DE. loo 
INC A 

f® C HL.DE 

c!rr NC 'CIEN 
CALL PR i 

DE. lo 

life 

SBC HL.DE 

CATT NC ’ D IEZ 
CALL PRiEx 

AI ® A, L 
CALL PRi ex 
RET 

CALL #BB5A 
LD A, 47 

f® HZ. PAS 

IIy C HL 
ADD HL f DE 
HL 


LD (MODO) f 

CALL #BC0E 
JP TEXTOS 


IMPRIME NUMEROS 
DECIMALES 

2250 ; 

2260 

2270 PINUli 
2260 


2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 j 

2370 PINUM: 

2360 

2390 

2400 

2410 DMIL: 


LD 

LD 

INC 

SCF 

LD 

LD 


L, A 

H, 0 
HL 


A. 47 
DE, 10 


CALL DIEZ 
RET 


SCF 

LD 

INC 

LD 

INC 


DE 
HL 

A, 47 
A 


|710 PITEX; 

2730 

2740 Plooi 

2750 
2760 
2770 
2760 
2790 
2600 

IIIo TEXT0S: 

2630 
2640 
2650 
2660 
2670 
2060 
2690 
2900 
2910 

2920 TXTl■ 

2930 

2940 TXT 2 
2950 

2960 TXT 3 • 

2970 

10000 /2960 *L+ 

dirhee. 

3 °00 LONG: 

3010 ALTO' 

3020 ANCHO’ 

3030 MODO: 


JR 


PUSH DE 
CALL #BB75 
POP dr 

CP A> <D B) 

c p 255 
RET Z 
CALL #BB 5 A 
INC DE 
PI001 

HL,#0117 
call p D fx E T f 1 

LD HL -^16 
CArr D£ .TXT2 

CALL PITEX 
pn HL, # 01 19 

jp DB . TXT 3 

JP PITEX 




defm 

DEFB 255 
DEFM "ALTO 
DEFB 255 

DEES 2 
DEES 2 
DEES 1 
DBFS 1 
DEFS 1 


LONGITUD:' 


x ANCHO: • 
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FLANK BRUNO’S 

BOXING 

de Soft Express 
P.V.P.: 4.200 ptas. 

El deporte del boxeo es 
probablemente el mas 
medroso juego de contacto 
practicado hoy en dfa. Ejerce 
una influencia extraha, 
muchas veces de fascination 
sadica, en bastantes de sus 
seguidores. 

Combina la forma fisica, 
fuerza, coraje y 
entrenamiento para producir 
un deporte extremadamente 
excitante. 

Ahora podemos 
experimentar el furioso 
deporte del boxeo sin poner 
en juego nuestra integridad 
fisica con Frank Bruno, uno 
de los mas grandes 
boxeadores del mundo. 

El objetivo del juego 
consiste en defenderse frente 
a ocho boxeadores de forma 
sucesiva, cada uno de ellos 
los mas famosos del mundo. 

Los estilos de lucha de 
cada uno de los boxeadores 
son diferentes. Cada prigil es 
un individuo mas inteligente 
y peligroso que el anterior. 

Los boxeadores con que 
sucesivamente nos 
enfrentaremos, son los 
siguientes: 

1. El canadiense: posee la 
apariencia de un oso gris y la 
fuerza de un elefante. 

2. Fling Long Chop: de 
nacionalidad japonesa, 
domina las artes marciales. 

3. Andra Puncheredov: es 
tan rapido, que se te sube a 
la cabeza antes que una copa 
de vodka. 

4. El indigena africano: 
plantea mas problemas que 
ningun otro. Tiene un 
temperament© que saca las 
mayores posibilidades que 
poseemos. 

5. El frances Frenchi: 
puede parecer que es muy 
frio, suave y sofisticado, pero 
esta falsa fachada esconde 
una amenaza permanente, 



listo para hacernos ver las 
estrellas. 

6. Raviolly Mafiosi: no es 
un hombre para meterse con 
el. Se sabe todos los trucos 
sucios y los utiliza sin ningun 
remordimiento. 

7. El australiano Andy: se 
alimenta con una dieta de 
perro muerto de hambre. No 
siente ninguna lastima por su 
contrincante y no para de 
golpear. 

8. Peter el perfecto'. es de 
nacionalidad estadounidense, 
se trata del mundialmente 
famoso campeon del mundo, 
el mas completo boxeador de 
la historia. Un contrincante 
de suma preparation con el 
que Bruno tendra que 
utilizar todas sus habilidades 
para poder superarle. 

Para defenderse del 
oponente, Bruno debe 
conseguir darle un golpe 
decisive y derribarlo. 

Trataremos de anular los 
golpes recibidos por el 
oponente y golpearle cuando 
su cuerpo o cabeza esten 
desprotegidos. Realizando 
fantasticos golpes repetidos, 
aumentaran los poderes 
pujilfsttios de Bruno. 

El indicador de K.O., se 
hace intermitente cuando el 
100 por cien de los golpes 
asestados por Bruno recaen 
en su oponente. Esto le 
permite dar un gancho con la 
derecha y, finalmente, 
propinarle un fuerte golpe de 
abajo arriba. 

La pantalla de juego se 
divide en dos partes. La 
mitad superior ofrece una 


information completa de 
como se desarrolla el juego y 
la otra mitad se trata de una 
imagen en perspectiva del 


El Knife es un completo editor 
de sectores y modificador de 
ficheros, que le permitira buscar 
y modificar information (bytes 
y caracteres) en cualquier lugar 
del disco. 

La utilidad de la aplicacion 
consiste en recuperar ficheros 
borrados, captar discos sector a 
sector, cambiar sectores de 
position dentro del disco, 
comprender mejor la 
information presente en los 
directorios del disco, asi como 
proteger nuestros discos contra 
la copia. Esta ultima posibilidad 
consiste en dahar las pistas de 
manera que el sistema no pueda 
leerlas. 

De modo diferente a otros 
programas similares, viene en 
dos partes diferentes para dos 
necesidades distintas: 

— Knife : se utiliza para 
modificar un fichero individual 
o aprender sobre la estructura 
del disco de CP/M y la forma 
en Cjue se almacenan los 
ficheros en el disco. 

— Knife 2 : esta dirigido para 
aquellos usuarios que precisen 
realizar modificaciones mas 
radicales o deseen realizar 
cualquier operation 
rapidamente. Resumiendo, es 
una option mas potente pero 
menos «amistosa». 

A. Comenzando con el 
Knife: 

Tanto el Knife como el Knife 
2 estan incluidos en el mismo 
disco, pero necesitan el CP/M 
2.2 para arrancar. Una vez cjue 
hemos introducido el disco 
aparecera en la portion superior 
de la pantalla un menu, con las 
siguientes opciones: 

1. Almacen de ficheros en CP/M: 


SOF’WARE 
PCW 


ring. 


KNIFE 

de Ofites Informatica 
P.V.P.: 8.848 ptas. 
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Es importante para que el 
programa sea realmente util el 
completo conocimiento de la 
manera en que el CP/M 
almacena los ficheros en los 
discos para el Amstrad. 

Los discos del Amstrad son 
formateados para tener nueve 
sectores de 512 bytes por pista. 


y como tiene cuarenta pistas, 
tenemos que cada cara de un 
disco puede almacenar 184.320 
bytes, es decir, 180 K. 

Las pistas se numeran del 0 
al 39, mientras que los sectores 
van del 65 al 73. Sin embargo, 
el sistema CP/M utiliza sectores 
de 128 bytes mas conocidos 
como requisites o sectores logicos. 
Estos son los que saca el Knife 
en la pantalla. 

Sin embargo, el Knife 2 hace 
exactamente lo contrario, y se 
refiere siempre a sectores 
«fisicos», es decir, agrupando 
consecutivamente cuatro 
sectores logicos. 

Los bloques son grupos de 
registros pertenecientes al 
mismo fichero. En el Amstrad 
hay ocho registros por bloque y 
cada bloque ocupa dos sectores 
ffsicos con la numeracion 
continua. Los ficheros siempre 
ocupan un numero entero de 
bloques. 

El directorio del disco ocupa 
el bloque 0 y guarda un registro 
con todos los ficheros del disco 
y la direccion en la que pueden 
ser encontrados. 

Cada entrada de directorio 
hace referencia solo a dieciseis 
bloques (extension). Si el 
fichero es demasiado largo para 
ser guardado en una extension, 
el CP/M abre otra para el, 
creando una entrada de 
directorio identica. Estas 
extensiones no apareceran 
necesariamente en relacion con 
el directorio. Todo depende de 
donde este el espacio libre. 

Se almacenan en bits no 
usados, datos como si el fichero 
estuviera colocado en los accesos 
de leer/escribir o en los de solo 
leer, o si es un fichero directorio 
del sistema. 

2. Olios formates de disco en el 

Amstrad: 


Ademas del formato del 
sistema discutido anteriormente, 
esta el formato solo para datos 
que es igual, salvo que no hay 
pistas reservadas y que los 
sectores se numeran del 193 al 
201 . 

El otro es el formato IBM, 
disehado para ser compatible 
con los sistemas CP/M-86 
utilizados en el IBM PC, con 
ocho sectores por pista, 
numerados del uno al ocho y 
una pista reservada. 

3. Examinar un disco: 

Esta opcion permite avanzar 
o retroceder por las pistas y 
sectores del disco, copiar los 
registros por impresora, alterar 
el contenido de un sector, o 
buscar un patron o cadena de 
texto en un disco. 

4. Mirar un fichero: 

El manejo de esta opcion es 
similar a la anterior. Primero el 
programa nos da la oportunidad 
de seleccionar un area de 
usuario nueva, de forma que los 
registros del fichero se presenten 
en secuencia. Con ello, el 
usuario podra utilizar las 
opciones descritas anteriormente 
para examinar su contenido. 

5. Recuperacion de un fichero: 

Para restablecer un fichero 

borrado es preciso que en el 
disco no se escriban otros datos 
tras la utilizacion del comando 
ERA. 

Es decir, que el CP/M^no 
borra los sectores que ocupan 
los ficheros, sino que avisa en el 
directorio de que esos sectores 
estan libres para ser utilizados. 
Por lo tanto, con un 
conocimiento suficiente del 
funcionamiento de dichos 
directorios y el Knife que 


permite la lectura y 
modification de sus bytes, 
pueden restaurarse ficheros 
borrados con anterioridad. 

B. Knife 2: 

Es un editor de discos 
alternative al KNIFE que nos 
ofrece diferentes facilidades que 
nos acercan a la idea de una 
forma completamente diferente. 

Los dos programas se 
complementan entre ellos, pero 
como ya hemos dicho 
anteriormente, la principal 
diferencia entre ellos estriba en 
que el Knife 2 siempre se refiere 
a sectores ffsicos (es decir, de 
512 bytes), en vez de a los 
sectores logicos del CP/M. 

1. Examinar un disco: 

Cuando se ha seleccionado un 

disco satisfactoriamente, se 
visualizaran los 256 bytes del 
primer sector en la primera 
pista del disco. 

En primer lugar se visualiza 
su numeracion hexadecimal. A 
continuation la representacion, 
tambien hexadecimal, del 
contenido de los dieciseis bytes, 
y despues las ASCII 
(caracteres), que son 
representaciones de cada uno de 
los bytes. Dicha representacion 
aparecera en pantalla siempre 
que sean caracteres 
imprevisibles, es decir, con un 
codigo de valor mayor que 32. 

Si no, aparece en su lugar un 
punto. 

En este momento podra 
alterar los bytes visualizados, 
pasar a la segunda mitad del 
sector o acceder a los 
comandos. 

2. Alteracion de bytes: 

Basta con escribir el nuevo 

valor cuando el cursor esta 
encima de la representacion 
hexadecimal del byte a alterar, 
o de su representacion ASCII. 

Las modificaciones no quedan 
escritas en el disco hasta usar la 
opcion sector escribir, por lo que 
puede practicar un poco con el 
sistema hasta que se acostumbre 
a el, sin miedo a causar un 
daiio irreparable. 

3. Movimiento por los sectores: 

El programa tiene opciones 

de avanzar y retroceder por 


P 
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sectores y pistas. Se puede 
pasar directamente del primer 
sector o pista al ultimo y 
viceversa. 

Presionando COPIA se 
visualiza la otra mitad del 
sector sin afectar a nada mas. 

4. Busqueda de una cadena: 

Produce una peticion en la 

parte inferior de la pantalla. En 
esta pregunta deben ser escritos 
hasta un nuraero de ochenta 
caracteres. Entonces, el 
programa comienza a buscar la 
cadena desde el sector en el que 
se ha pedido, hasta que la 
encuentre. 

Cuando encuentra la cadena, 
el sector y la pista en que ha 
ocurrido esto, se convierten en 
los actuales, apareciendo en la 
pantalla. Si la cadena no se 
encuentra aparecera un mensaje 
de aviso. 

5. Busqueda de una secuencia de 
bytes: 

Esta opcion es similar a la 
anterior, pero en este caso hay 
que introducir hasta ochenta 
bytes, con los valores entre 0 y 
255. 

El programa supone que cada 
byte debe ser introducido en 
hexadecimal, precediendolo con 
un caracter PT. 

6. Escribir sector para dar la 
posicion: 

El interes de esta opcion 
consiste en escribir el sector 
editado anteriormente en 
cualquier posicion del disco. 

El programa nos pide una 
pista y sector nuevos, donde 
escribe el sector (de 512 bytes) 
en esa posicion del disco. 

Los usuarios sin experiencia 
tendran que tener mucho 
cuidado con esta orden, porque 
es muy facil danar el contenido 
del disco si el sector ha sido 
escrito en una posicion no 
deseada. 

As! mismo, otra aplicacion de 
la presente opcion consiste en 
copiar discos sector a sector, si 
bien, ello no es recomendable 
para «piratear» debido a la 
lentitud del proceso. 

7. Seleccionar un sector nuevo: 

Presionando esta opcion, el 

ordenador nos pedira un nuevo 


numero de sector para ser 
editado. 

Solamente nos permite 
seleccionar sectores en la pista 
actual. 

8 Seleccionar una pista nueva: 

Es igual a la anterior, solo 
que esta vez nos pide el numero 
de pista. 

Esta orden no altera el 
numero del sector actual de la 
pista. 

9. Volver a escribir el sector: 

Escribe de nuevo los 512 
bytes que han sido editados, y 
los coloca en la posicion de 
origen del sector una vez que lo 
hemos modificado. 


CONTABILIDAD 

E.O.S. 

de Leo Computer 
P.V.P.: 16.250 ptas. 

Leos Eos esta pensado para 
llevar la cohtabilidad de 
pequehas cmpresas, 
profesiones liberates o 
usuarios en general. 

Es un programa realizado 
en CP/M 3.0 dirigido a 
aquellas personas qiu^en 
cualquier momento deseen 
conocer su situacion 
economica, as! como una 
prevision de cobros y pagos. 

1. Caracteristicas: 

• Numero maximo de 
cuentas: mil cuentas. 

• Numero minirno de 
apuntes en PCW 8256: 1.900 
apuntes. 

• Numero minirno de 
apuntes en PCW 8512: 

10.000 apuntes. 

Permite en su proceso de 
instalacion definir la posible 
utilizacion de una segunda 
impresora. 

2. Opciones: 

• Prevision de 
vencimientos de apuntes, 
bien para pago o cobro. 

• Clasificar 

automaticamente por fechas 
los apuntes introducidos. 


• Emitir extractos de una 
o varias cuentas por fechas, 
dando los totales de entradas, 
salidas y saldos. 

• Balance de sumas y 
saldos. 

3. Listados del programa: 

• Listado del Plan 
Contable. 

• Listado del Libro 
Diario. 

• Listado de apuntes de la 
cuenta. 

• Listado de apuntes por 
periodos. 

• Listado de sumas y 
saldos. 
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Listm telefonico (y II) 


r 

omo prometimos la semana pasada, aqu \ 
esta la segunda y ultima parte del listado de este 
programa para el PCW, el cual nos hemos visto 
obligados a fraccionar dada su excesiva longitud, 
con idea de facilitar al maximo su tecleo a 
nuestros lectores. Nunca dejara de sorprendernos 
la increible variedad de aplicaciones que los 
usuarios de la, segun Amstrad, «maquina de 
escribir» son capaces de encontrar para su 


ordenador. En cuanto al viejo argumento de cjue 
se tarda mucho menos en encontrar un numero 
telefonico en una agenda que en un ordenador, 
bien, es cierto hasta un cierto numero de 
telefonos. ,:Se imaginan ustedes a Informacion de 
la provecta Telefonica diciendo: «Un momento 
Voy a mirar la agenda. Mientras espera, le 
ofrecemos esta saladisima conferencia explicando 
el porque de los monopolios»? ^Eh? 


I--- 

360 letra$=”CcNn”:GOStJE 1050;IF respuesta=3 DH rsspuesta=4 THEN fichas=0;RETURN 
370 GOSUB 1030:GOTO 330 

360 REM ************* leer fichas *********** 

390 PRINT FNatS(29,OV’Leyendo el listin telefonico. For favor, espere. 

400 OPEN " I” , 1, ’’telefono. sec” 

410 fichas=0 

420 WHILE NOT(EOF(1)) 

430 fichas=fichas+1 

440 INPUT Ptl,nombreS(fichas),telefono$(fichas),direccionS(fichas),prefS(fichas) 
450 VEND 
460 CLOSE 1 
470 RETURN 

460 REM ********** buscar ********* 

490 sw=0 

500 PRINT FNatS(2,66)” OPCION (B) BUSCAR ” 

510 IF fichas=0 THEN PRINT FNatS<29,0)”iEl listin telefonico esta vacio!STRING 
S <45, ” ”) .-RETURN 

520 PRINT;invS;FNatS<29,OV’Para salir. < RETURN >”;TAB<80);norviS;FNatS<3 

,4)"Nombre. .”;FNatS <4,13);STRINGS<30,); 

530 PRINT FNatS<4,13);:INPUT”>”;buscaS 
540 buscaS=UPFERS<buscaS) 

550 IF buscaS=”” THEN RETURN 
560 cuenta = 1 

570 a=INSTR (nombreS(cuenta) ,buscaS) 

560 WHILE cuenta <=fichas AND a=0: cuenta = cuenta +1.-GOTO 570 
590 WEND 

600 IF sw—1 AND cuenta)fichas THEN dato=0: RETURN 

610 IF cuenta) fichas THEN PRINT pits ;invS;FNatS<4,25);"No encuentro ";buscaS;r 
orviS:RETURN 

620 dato =dato+l • IF dato>22 THEN sw=0: da to=0 : GOSUB 1160:FOR j =3 TO 26.-PRINT FNat 
S<j,0);STRINGS<90,” ”):NEXT ELSE PRINT FNatS <dato+5, 

0);nombreS(cuenta) ; ” C/ ";direccionS(cuenta): sw=l 

630 PRINT FNatS <dato+5,76)” C’prefS(cuenta) ;”) telefonoS(cuenta):cuenta=cuenta-» 

1:GOTO 570 

640 dato=0: RETURN 

650 REM * * * afiadlr ficha * * * * 

660 PRINT invS; FNatS<2,0)”Fichas" fichas; norviS:PRINT FNatS <2,66)" OPCION (A) ABA 
DIR " 

670 PRINT invS;FNatS<29,0)”Solo 35 caracteres. Para salir < RETURN >”;norviS 
660 PRINT FNatS (4,13) STRINGS <35, ” ’* ) 

690 PRINT FNatS <6, 14) STRINGS <50, ” ’• ) 

700 PRINT FNatS <8, 14) STRINGS <10, *’ •• ) 

710 PRINT FNatS <10, 14) ; STRINGS <5, ” ’’) 

720 PRINT FNatS<4,13) STRINGS<35,) 

730 PRINT FNatS (4,4)’’Nombre. INPUT”>” ; nombreS 
740 nombreS= UPPERS(nombreS) 

750 IF nombreS='*” THEN RETURN 
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760 PRINT FNatS(6,4) STRINGS(50,”_");FNatS<6,4>;"Direccion.INPUT direccionS 
770 direccion$= UPPERS(direccionS) 

780 IF direccionS=”” THEN RETURN 

790 PRINT FNatS(8,4) STRINGS(17, ,, _"); FNatS(6,4)”Telefono. .”; : INPUT;telefonoS 
800 IF telefonoS=”" THEN RETURN 

810 PRINT FNatS(10,4)”Prefijo.._FNatS(10,14)INPUT prefS 

820 IF prefS=”" THEN RETURN 

830 prefS(fichas)=prefS 

840 fichas=fichas+1 

850 nombreS(fichas)=nombreS 

860 direccio?S(fichas)=direccion$ 

870 telefonoS(fichas)=telefono$ 

880 prefS(fichas)=prefS 

590 fichero.cambisdo=verdadero 

900 PRINT invS;FNatS(29,0)”Esta bien asi (S/N)...Terminar (F)in 
" ; : letraS=’’SsNnFf’’ : GOSUB 1080 
910 ON respuesta GOTO 650,650,920,920,970,970 
920 ficha = ficha-1:GOTO 650 
930 GOTO 900 
940 RETURN 

950 REM * * * escribir fichero * * * 

960 PRINT FNatS(28,0)”Escribiendo el listin telefonico. Por favor, espere un mom 
ento solamente. " 

970 OPEN"0”,1,"telefono.sec” 

980 FOR cuenta=l TO fichas 

990 WRITE Ptl,nombreS(cuenta) , telef onoS(cuenta) ,direccionS(cuenta),prefS(cuenta) 
1000 NEXT 
1010 CLOSE 1 
1020 RETURN 

1030 REM * * * cambio de disco * * *■ 

1040 RESET 

1050 PRINT FNatS(29,0)”Ponga el disco donde tiene el listin telefonico y pulse R 
ETURN”,aS 

1060 WHILE INKEYS='”' ; WEND 
1070 RETURN 

1080 REM * * leer tecla * * 

1090 respuestaS=INKEYS 
1100 WHILE respuestaS=”” 

1110 respuestaS=INKEYS 
1120 WEND 

1130 respuesta=INSTR(letraS,respuesta*) 

1140 IF respuesta=0 THEN GOTO 1090 
1150 RETURN 

1160 REM * * * esperar por tecla * * * * 

1170 PRINT invS;FNatS(28,0);STRINGS(90," ”);FNatS(29, 0);"Pulse cualquier tecla p 
ara continuar”;FNatS(27,0);norviS 
1180 WHILE INKEYS="” 

1190 WEND 
1200 RETURN 

1210 REM **** Pasar el listin a la impresora **** 

1220 opciS= "%%%%%%%*/,%%%. OPCION (I) LISTADO 

.... %%%%%%%%%%%" 

1230 PRINT invS;borraS:PRINT opciS;norviS 

1240 PRINT FNatS(10,30)”(I)..Pantalla e IMPRESORA ”;FNatS(12,30 

); ” (P).Solo en PANTALLA ” 

1250 letraS=”IiPp":GOSUB 1080:impr = respuesta 

1260 PRINT FNatS(3, 30)”S U B M E N U LISTADO" 

1270 PRINT FNatS(10,30)"(N) . Ordenado por NOMBRES” ;FNatS(12,30)"(A). .C 

rdenado por APELLIDOS” 

1280 PRINT FNatS(16, 30)”Elige... pulsa.. . (A / N)” 

1290 letraS=”NnAa”:GOSUB 1080; salto=respuesta 

1300 ON salto GOSUB 1730,1730,1790,1790 

1310 PRINT borraS; FNatS(0,34)"LISTIN por ”; notaS 
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1320 IF impr=3 OR impr=4 THEN 1340 

1330 LPRINT:LPRINT FNatSCO,34)”LISTIN por ”;nota$:LPRINT:LFRINT 
1340 ff=1:FOR f=l TO fichas 
1350 pmxt =LEH C rirtTnhr eS Cf ) ) 

1360 PRINT FNatS <ff, 0) ; STRINGS(90, ” FNatS Cff+1,0)nombre$ Cf ) ; FNatS Cff+1,32);di 
reccionSCf) ; FNatS Cff + 1,76)”C”;prefS Cf);”)"; 

1370 PRINT FNatSCff+1.82)telefono$Cf) 

1350 IF impr=3 OR i.mpr=4 THEN 1400 

1390 LPRINT CHRS C1-5) ; CHRS C27)” 4” ; nombreSCf)” direccionS Cf)” ”;prefSCf)” 
telefonoS Cf) 

1400 ff=ff+l 

1410 IF ff>=28 THEN GOSUE 1160:ff=0:PRINT borraS 
1420 NEXT 

1430 GOSUB 1160.-GOTO 60 

1440 REM ***** modificar fichas ********* 

1450 gesto=0: PRINT FNatSC2,66)” OPCION CM) MODIFI ” 

1460 PRINT invS;FNatSC28,0)” <EXTRA>+<H>+<RETURN> para AYUDA - Dejar los 
datos como estan < RETURN > ”;norviS 

1465 PRINT FNatSC4,29);STRINGSC60,” ”) 

1470 PRINT FNatSC4,22)”Nombre.."; 

1480 PRINT FNatS(4,31);:INPUT”>”;buscaS 
1490 buscaS=UPPERS CbuscaS) 

1500 IF buscaS=”" THEN RETURN 

1510 IF buscaS=CHR$C253) THEN GOSUB 1960:IF nota =1 THEN 60 
1520 IF gesto=l THEN GOTO 1570 
1530 FOR f=l TO fichas 

1540 IF LEFTSCbuscaS,15)=LEFTSCnombreSCf),15)THEN 1570 
1550 NEXT 

1560 IF f>fichas THEN PRINT FNatSC4,50)"NO HE ENCONTRADO ”buscaS:PRINT CHRSC7):F 
OR f=l TO 20:PRINT pitS: NEXT:GOTO 1440 

1570 PRINT FNatSC6, 10)”ficha antigua FNatSC8,0)nombreSCf);FNatSC8,35)”C/ ”di 

reccionS Cf);FNatS(8,77)”(”prefS Cf)”) ” 

1580 PRINT FNatS(8,63)telefono$Cf) 

1590 PRINT FNatSCIO,10)”Introduce la nueva ficha”;FNatSC12,22)”NombreINPUT 
nombS: nombS=UPPERS CnombS) 

1600 IF norab$=”” THEN PRINT FNatSC12,32) nombreSCf): nomb$=nombre$(f) 

1610 PRINT FNatSC14,22>”domici1io”;: INPUT domiS: domiS=UPPER$CdomiS) 

1620 IF domiS=”” THEN PRINT FNat$C14,33) direccionSCf): domiS=direccionSCf) 

1630 PRINT FNatSC16,22)’’prefijo”INPUT prfS:prfS=UPPERSCprfS): IF prfS=”” THEN P 
RINT FNatSC16,32)prefSCf): prfS=prefSCf) 

1640 PRINT FNatS C18,22)”Telefono”; : INPUT telefS:telefS=UPPERSCtelefS): IF telefS= 
""THEN PRINT FNatSC18,32) telefonoSCf): telefS=telef 
onoS Cf) 

1650 nombreS Cf)=nombS:telefonoS Cf)=telefS:direccionS Cf)=domiS:prefS Cf)=prf$ 

1660 PRINT FNatSC20,1)"Ficha modificada FNatSC22,0)nombreSCf)” C/”:PRINT FN 

atSC22,35)direccionS Cf);FNatS C22,77)”C”; 

1670 PRINT FNatS C22,78)prefSCf)").”;FNatS C22,83)telefonoS Cf) 

1680 PRINT invS;FNatSC26,22)”Modificacion correcta (S/N)norviSletraS=”SsNn": 
GOSUB 1080 

1690 ON respuesta GOTO 1710,1710,1440,1440 
1700 IF INKEY$=”N” OR INKEY$=”n” THEN 1440 
1710 IF nota=l THEN 80 
1720 GOSUB 970:GOTO 80 

1730 REM **** ordenar por nombres **** 

1740 PRINT borraS”Ordenando por nombres. espera un momento por favor 

”:PRINT;PRINT 

1750 FOR f=l TO fichas-1 

1760 IF nombreSCf)>pombreSCf+1) THEN SWAP nombreSCf + 1), nombreSCf): SWAP telefonoS 

Cf + 1),telefonoS Cf):SWAP direccionS Cf+ 1),direccionS Cf 

):SWAP prefS Cf + 1),prefS Cf):leo=l 

1770 NEXT f:IF leo=l THEN leo=0:GOTO 1750 

1780 notaS=”NOMBRES” : RETURN 

1790 REM ***** Ordenar por apellidos ***** 

1800 PRINT borraSj"Ordenando por apellidos.. .espera un momento por favo 

r”;PRINT:PRINT 

1810 FOR f=l TO fichas-1 

1820 long=LEN CnombreSCf)>:longl=LEN CnombreSCf+1) 
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1830 sitio=INSTR(nombreS(f5 , ” ” ) : sitiol=INSTR (nombreS (f + 1) , ” ”5 

1840 IF MIPS(nombre$ if 5,sitio+1,long-siti+15>MIDS(noubref(f+15,sitioi+1,longl-ei 
tiol+1) THEN SWAP nonbre$<f+1),nombret(f):SWAP telef 
□no$(f+15,telefonoS(f):leo=l ELSE GOTO 1860 

1850 SWAP direccionS(f+ 15,direccionS(f):SWAP prefS(f+15,pref$(f5 
1860 NEXT:IF leo=l THEN leo=0:GOTO 1810 

1870 FOR f=l TO fichas-1 

1880 long=LEN (nombreS<f55:longl=LEN (nombret(f+155 

1890 sitio=INSTR(nombreS<f5,” ”5:sitiol=INSTR(nombreS(f + 1),” "5 

1900 IF MIDS(nombreS(f 5 ,sitio+1,long-siti+15=MID$(nombreS(f+1),sitiol+1,longl-si 
tiol+1) AND LEFTS(nombreS(f),sitio)>LEFT$(nombreS(f + 

l),sitiol) THEN SWAP nombreS(f+15,nombreS(f5:SWAP telefonoS(f+15,telefonoS<f):le 
o=l ELSE GOTO 1920 

1910 SWAP direccionS (f+ 1) , direccionS (f 5 : SWAP prefS(f+1),prefS(f5 
1920 NEXT:IF leo=l THEN leo=0:GOTO 1810 
1930 nota$=”APELLIDOS”:RETURN 

1940 PRINT MIDS(nombreS(f5,sitio+1,long-sitio+1),MIDS(nombreS(f+1),sitio+1,long- 
sitio+1) 

1950 IF INKEYS=’”'THEN 1950 

1960 REM **»*»*»* subrutina de ayuda ******»»»» 

1970 PRINT invS FNatS(28,0);" Cuando encuentres la ficha que buscas puls 
a . . . . < C > 

1980 nota =0:FOR f =1 TO fichas 

1990 PRINT invS;FNatS(4,33 5;f;” nombreS(f) ; norviS 

2000 ink$=INKEYS:WHILE ink$=”” 

2010 inkS=INKEYS: WEND 

2020 IF inkS=”c” OR inkS=”C” THEN gesto=l: RETURN 
2030 PRINT FNatS (4,335; STRINGS (40, ’’ ” 5 : NEXT 
2040 nota =1:RETURN 

2050 fichero, cambiado=verdadero: RETURN 





_ Como,,,, masmpido,,, 
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Con cl fin de acelerar lo mas posible el correo, y podcr resolver o contestar a 
todas las dudas y sugerencias que llegan a nuestra redaccion, a partir dc esta semana 
os rogamos, en beneficio de todos, eonsignar en el sobre, en lugar bien visible, una 
de las denominaciones siguientes: 


— Suscripciones AMSTRAD. Para todos aquelos casos rclacionados con peticion 
de cintas, numeros atrasados, formalization de suscripciones, dcvoluciones, etc... 

— Mercado Comun AMSTRAD. Compras, ventas, intercambios, clubs... 

— Serie Oro AMSTRAD. Para los programas que nos envieis para su 
publication. 

— Sugerencias AMSTRAD. Para vuestras cnticas, sugerencias u cualquier 
opinion que querais vertir sobre la revista. 





























Es necesario revisar 
los listados con 
atencion 

Tengo un CPC 6128. 

Leyendo una de vuestras 
revistas, exactamente la numero 
74, me decidl a teclear el 
programa que se publicaba en 
la Sene Oro. Este programa es 
Ice-Front. Resulta que despues 
de haberlo tecleado cuesta 
mover a Bob. Ademas, cuando 
se acaban las vidas o pasa un 
tiempo determinado y la 
pantalla se borra, aparece 
inmediatamente o Bob en el hielo 
o Bob en sandwich , tras lo cual 
aparece: 

Syntax error in 1540 

1540 data 3e, 01, 21, 00, 8c, 
11, aO, 00, 19, 3d, fe, 00, 20, 
fa, 11, 60, 9a, 01, aO, 00, ed, 
aO, e2, 18, 9b, c3, fO, 9b, c9. 

Yo, la verdad, no se donde se 
encuentra el error y 
preguntandoles a algunos 
amigos, ellos tampoco lo saben. 
Asf pues, os agradecerfamos que 
nos dijeseis donde se encuentra 
el fallo, ya que no conseguimos 
verlo. 

J. Enrique Garcia Prieto 

Lamentablemente, con los datos 
que nos da no es posible decir 
concretamente donde estd el error, ya 
que la Unea de listado que nos envia 
estd correcta. Creemos que puede 
haber pasado lo siguienle: el 
«despiste» se encuentra en otra parte 
completamente distinta. del programa, 
pern en la zona de las datas del 
Codigo Maquina. Ocurre que el 
Amstrad. al intentar ejecutar una 
subrutina en maquina que contiene 
un error, «enloquece» y actua de 
forma impredecible Da la casualidad 
de que lo que sea que pase afecta al 
propio interprets de Basic, y da un 
mensaje de error de sintaxis donde no 
existe mnguno. Nos vemos obligados 
a recomendarle que repose con 
esmerada atencion el listado, 
especialmente la zona que se refiere a 
las datas, comprobando con especial 
cuidado que no ha puesto una «o» en 
lugar de un «0». 

A vueltas con 
los pokes 

1. Me gustarfa saber como se 
introducen los pokes para el 

Amstrad. 

2. He observado que en 



Sin duda 

ALGUNA 


algunos programas comerciales 
en el Amstrad se consiguen 
apreciar mas de cuatro colores, 
cosa que a ml me resulta 
im posible. 

Alvaro Sanz Monasterio 

Para introducir los pokes en los 
juegos comerciales, salvo que no esten 
protegidos, necesita un programa 
cargador que normalmente facilitamos 
en la revista cuando se habla de un 
juego con detalle. 

En una consulta de estas mismas 
pagmas encontrard una respuesta mas 
detallada. 

Efectivamente, en algunos juegos 
comerciales se ven mas de cuatro 
colores en modo 1. Habra usted 
observado que solo sucede en 
determinadas zonas de la pantalla. 

El motwo es que los programadores 
enganan al Amstrad haciendolo creer 
que una parte de la pantalla estd en 
modo 1 y otra en un modo distinto. 

Explicar concretamente el asunto 
esta fuera del alcance de estas 
pagmas, pero el metodo en si recur re 
al uso de rutinas de interrupcion; es 
decir, el ordenador conmuta entre dos 
rutinas de color y modo de pantalla 
tan rdpidamente que parece que 
ambos modos estan simultanearnente 
en el monitor. 

File not found 

Poseo un Amstrad CPC-464 
con unidad de disco y he 
realizado algun que otro 
programa de acceso a ficheros 
ubicados en este dispositivo, 
encontrandome con el problema 
de que, al no existir dichos 
ficheros, el programa se 
interrumpla dando el mensaje: 
File Not Found. 

De aqul mi pregunta: ,:no 
habrla manera de controlar 
dentro de los programas los 


errores de este tipo? (Tal cual lo 
hace el Amstrad 6128.) 

Os he llamado por telefono 
para preguntaros el tema que os 
explico en el punto anterior, 
pero me indicasteis que era mas 
conveniente que os lo planteara 
por escrito, debido a la 
extension del problema. 

En el manual que se entrega 
con la unidad DD-1, en el 
capltulo 5.8 hay una relacion de 
todos los errores, pero no logro 
entenderlos. Os quedarla 
agradecido que me explicarais 
como podrla acceder al registro 
A para poder sacar los mensajes 
por pantalla en espanol; por 
ejemplo, que no esta en el 
fichero, o el disco no esta en la 
unidad, o error de escritura, 
etc..., y as! evitar la rotura del 
programa. 

Otro tema que quiero 
comentaros es el siguiente: 

Tengo un programa Menu 
(que os he enviado para su 
posible publication), en donde 
una de las lmeas del mismo 
enlaza con el procesador de 
textos que en su dia 
publicasteis, pero que al 
terminar de utilizar este proceso 
y al intentar volver al menu, da 
un mensaje de MEMORY 
FULL. 

La consulta que os quiero 
hacer es si hay algun modo de 
evitar que se llene la memoria 
al pasar de nuevo al Menu (sin 
desconectar el ordenador) y si es 
posible que me expliqueis el 
porque de este mensaje. 

Juan Jose Ferrer Perez 

Desgraciadamentc, no hay solucion 
para su pnmera pregunta. Amstrad 
omitid tratar los errores del disco en 
el 464, incluso aunque usted posea 
una unidad de disco. Por tanto, o se 
olvida del asunto, o adquiere un 
6128. Lo lamentamos mucho. 

Su segunda pregunta tiene una 
respuesta mas clara y es, sobre todo, 
positiva. Sucede que nuestro 
procesador de texto y su programa 
Menu no caben simultanearnente en 
la memoria. Para conseguirlo, debe 
usar la orden CHAIN o CHAIN 
MERGE, cuya sintaxis y uso estan 
explicadas en el manual. 

Existe una precaucion que debe 
tomar en cualquier caso. Cuando la 
rutina que usted llamo acaba su 
cometido, es esencial que retorne al 
programa Menu, por lo que hay que 
incluir otra orden CHAIN, que 
invoque al programa principal. 
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Actualidad, pokes, mapas, trucos, 
los mejores juegos y programas para 
SPECTRUM, AMSTRAD, COMMODORE y MSX 



Todo el universo 
del Software 
mes a mes 
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INfOBYTES 


No hay dos sin tres 



Los usuarios del Amstrad PC 
1512 con dos unidades de disco, 
quiza se encuentran con las alas 
cortadas a la hora de ampliar su 
equipo con un disco duro. El 
reducido espacio de la unidad 
central del ordenador no da 
opcion a mas de dos unidades 
de almacenamiento de media 


altura. Por ello, 
pensando en 
este problem a y 
en los que surgen 
en otros 

compatibles PC, Top 
Computer ha 
desarrollado este disco 
duro montado en una 
tarjeta junto con el mismo 
controlador, por lo que 
unicamente nos va a ocupar 
un slot de los tres que incorpora 
el ordenador. El disco viene 


firmado por NEC y cuenta con 
un tiempo medio de acceso de 
85 mseg.; el controlador ocupa 
la tercera parte del area de la 
tarjeta y es capaz de manejar 
no solo el disco duro que le 
acompana, sino tambien otro, 
que en el caso del PC de 
Amstrad pudiera ser del tipo 
externo (de estos hablaremos 
proximamente en esta seccion). 
El segundo problema que 
presenta el compatible de 
Amstrad a la hora de aceptar 
un accesorio es el consumo de 
este, punto en el que la tarjeta 
Megacard no abusa en absoluto ya 
que resulta muy ahorradora: 
► 18 VV como maximo. 

Su precio, en 
Comercial Nuevos 
Ministerios 
estacion Renfe 
de la calle 
Raimundo 
Fernandez 
Villaverde, 
es de 
120.000 
ptas. 



Hasta diez 

Hasta diez discos de 5 1/4 
pulgadas pueden entrar en 
este practico archivador de 
plastico transparente y 
personalizado con el 
logotipo de Micro 
World, Zurbano, 76, 
Madrid. 
Su precio es de 560 
ptas. y se mantiene la 
— caja abierta y de pie 
abatiendo la tapa 
transparent 



A dos niveles 

La mesa Tableman que os 
presentamos en la fotografia 
viene a solucionar el problema 
del emplazamiento del equipo 
informatico en uso domestico, 
como en oficina. Cuenta con 
dos bandejas. La superior, a una 
altura sobre el suelo de 79 cm, 
da cabida tanto al monitor 
como a la impresora; la inferior 
es extrafble, para que el 
conjunto ocupe el menor espacio 
cuando no se utiliza, y sostiene 
el teclado del ordenador dejando 
lugar para manejar textos o 
deslizar un raton. Bajo las 
bandejas, se encuentra una 
rejilla en la que se pueden 
guardar manuales o libros de 
consulta y en un nivel inferior 
una cesta movil de gran 
capacidad. 

Las dimensiones de la mesa 
son de 102 cm de ancho por 50 
cm de fondo. Su precio es de 
22.300 ptas. en Peek & Poke, 
Genova 11. 28004 Madrid. 
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Mas por menos 

Que una impresora para los 
Amstrad CPC cueste 35.000 
ptas. no llama demasiado la 
atencion, pero si pasamos a 
describir sus caracterfsticas y 
afirmamos que lleva la etiqueta 
de Seikosha, podriamos decir 
que nadie da mas por menos. 

Por descontado, la impresora 
Seikosha SP 180 A cuenta con 
todos los tipos de letra: pica, 
elite, condensada, expandida..., 
alcanzando una velocidad de 
impresion en modo Pica de 100 
caracteres por segundo..., y, 
ademas, todos estos tipos se 
consiguen tambien en modo de 
alta calidad (NLQ) con una 
velocidad logicamente mas 
lenta, de 16 caracteres por 


La que faltab 

Todos aquellos que cofttaban 
con un Amstrad PC ! 3 2 con 
la configurai ion minima de un 
' lo disfo, y.i pueden saltar a la 
catc gorla superior con el kit de 
la segunda unidad de disco que 
ofrere el mismo fabricante 
Amstrad. 


_ 




Se encuentra en Micro 
World, Zurbano 76, de Madrid, 
al precio d< 44.800 ptas. Su 
montaje no ofrece la menor 
Jificultad, quedando alojada en 
el nueco de la izquierda de la 
unidad central y no necesita 
controlador, ya que la misma 
placa principal estaba preparada 
para aceptarlo. Tras su 
instalacion, el disco A: pasa a 
ser el nuevo, mientras que el B: 
sera el antiguo. 



segundo, pero con la ventaja de 
que no solo se obtiene mediante 
codigos de control desde el 
ordenador, sino tambien pulsando 
una tecla en la misma impresora. 

La admision del papel se 
efectua mediante friccion para 




hojas sueltas y por traccion con 
alimentador para papel 
continuo. 

La encontrareis en 
Informatica Papelerla, Plaza de 
Castilla de Madrid, junto al 
Asador. 



Escalera de color 

Cuando se trabaja con prisas, 
localizar un disco de 5 1/4 
pulgadas en un archivador de 
discos negros se parece a 
encontrar una aguja en un 
pajar. Para facilitar las cosas, 
aqui tenemos estos discos de 
colores de la firma Pureflex y 
que podeis encontrar en 
Informatica Grotur, Jaime el 
Conquistador 27, Madrid. Tel. 
(91) 474 55 00, al precio de 


4.000 ptas. la caja de diez 
unidades. 

Cada caja contiene una gama 
de cinco colores con dos discos 
por color, aparte, claro esta, de 
etiquetas adhesivas para 
nombrar su contenido. 

De esta manera, con los 
discos de colores iremos a tiro 
hecho para localizar cualquier 
tema. 




Los precios que acompahan estas Jotografias incluyen el 12% de IVA y han sido facihtados por los comerciantes 
que se citan. Se ofrecen a tilulo informativo al margen de toda publicidad. Pueden sufnr variaciones. 
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La aventura de Laserbase 


Los juegos de «marcianitos» tienen un no se que de entranable que 
los hace revivir periodicamente en las paginas de todas las revistas que 
ofrecen programas a sus lectores. A nosotros nos ha vuelto a ocurrir: nos 
han enviado un buen programa relativo a una vieja idea. Aqui esta. 


r 

1 escenario de la batalla, porque de una 
guerra en el espacio se trata, nos situa en un 
lugar sorprendentemente cercano, cuya existencia 
y ubicacion no pertenecen al nebuloso dominio 
de la ciencia-ficcion: la Luna. 


Una espantosa catastrofe ha sucedido en el 
Sistema Solar: una raza agresiva y desconocida 
ha ido atacando y destruyendo las colonias 
humanas de los planetas exteriores, 
metodicamente, sin misericordia. Todos los 
intentos de dialogo han sido infructuosos. Los 


10 REM Laserbase 

20 REM por 

30 REM MK & PA Leybourne 
40 REM(c) Amstrad Semanal 
50 REM 

60 CALL &BB4E:CALL &BC02 
70 SYMBOL AFTER 256-.MEMORY &9FFF: SY 
MBOL AFTER 32;GOTO 260 
60 REM *********** 

90 REM Explosiones 
100 REM ********** 

110 FOR a=l TO 2:CALL &BD19:TAG:PRI 
NT CHR$<245+a);:TAGOFF 
120 MOVER -32,0;TAG:PRINT CHR$(245+ 
a);:TAGOFF 

130 MOVER -32,0:NEXT:RETURN 
140 REM ********************* 

150 REM Rutina de puntuacion 
160 REM ********************* 

170 si=PEEK(&A14B):c=3~si 
180 IF n<243 THEN sc=sc+5*c:GOTO 20 
0 

190 sc=sc+2*c 

200 PEN 2:PAPER 15:LOCATE 6,24:PRIN 
T sc; 

210 IF pow<0 THEN pow=0 

220 LOCATE 16,24: PRINT CINT(pow); 

230 BORDER 13:IF <Cla<l) OR <pow<l) 

) THEN 2870 

240 RETURN 

250 REM ********** 

260 REM Inicializa 
270 REM ********** 

280 DEFINT a-z:DEFREAL p 

290 ENT 1,150,15,1:ENT 2,1,1,2,100, 

20,1:ENV 1,5,10,40 

300 GOSUB 2330:REM Titulo 

310 RESTORE 2160:GOSUB 1500:REM Def 

ine Aliens 

320 GOSUB 2480: REM instrucciones 
330 RESTORE 1520:GOSUB 1500:REM Def 
ine caracteres 

340 MODE 0;ORIGIN 0,0,0,640,383,48 
350 WINDOW #1,1,20,23,25:PAPER #1,1 
5:CLS:CLS#1 

360 INK 8, 13,0: INK 9,25, 13; INK 10,1 
3: INK 11,26,13 


370 INK 15,13:INK 0,0:INK 12,1:INK 
13,26;INK 6,11 

380 PAPER 0:BORDER 13: SPEED INK 150 
, 150 

390 d=—1:lx=96:hx=544:ly=156:hy=240 
400 REM ************************ 

410 REM define strella y torreta 
420 REM ************************ 

430 sc=0:pow=500:1=1:r=l:la=2:INK 3 
,6:INK 1,24 

440 al=10:PAPER 0:FEN 1;FOR a=2 TO 
21 

450 b=I NT<RND*18> +1 

460 LOCATE b,a:c=INT(RND*4>:d=d+l: I 
F d=4 THEN d=0 

470 PEN 8+d:IF c=l THEN PRINT CHR$( 
46); ELSE PRINT CHR$<248>; 

480 NEXT a 

490 REM ***************** 

500 REM define nave alien 
510 REM ***************** 

520 PRINT CHR$<23);CHR4C0) 

530 CALL &A22B:REM dibuja nave 
800 PLOT 288,287,0:DRAWR 96,0:MOVER 
0, -16: DRAWR 0,-16:DRAWR -96,0:DRAW 
R 0, 16: DRAWR 96, 0 

810 MOVE 304,324:DRAWR 64,0,4:MOVER 
0,2:DRAWR -64,0:MOVER 0,2:DRAWR 64 
. 0 

820 PEN 2:PAPER 15:LOCATE 1,24;PRIN 
T”Score"; 

830 LOCATE 11,24 PRINT”Ener-";:GOSU 
B 200: REM Score 
840 PEN 3:PAPER 0 

850 LOCATE 6,22:IF 1 THEN PRINT CHR 
$(239) ELSE PRINT CHRSK229) 

860 LOCATE 15,22:IF r THEN PRINT CH 
R$C239) ELSE PRINT CHR$<229) , 

870 PEN 2;PAPER 15:sx=288:sy=176 
880 nf=l 

890 REM ************ 

900 REM dibuja alien 
910 REM ************ 

920 lau=l:c=INT(RND*3)+10 

930 IF c—11 THEN n=240 ELSE n=243 

940 PRINT CHR$(23);CHR$<1); 

950 xp=(c-1)*32:yp=271:CALL &A000,x 
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alienfgenas han contestado que su objetivo final 
es la aniquilacion de nuestro planeta madre, por 
quien sabe que olvidados agravios. 

La batalla no ha sido un camino de rosas para 
ellos. Han sufrido muchas bajas, y se estan 
reorganizando para lanzar el ataque final. Solo 
una cosa puede detenerlos: el complejo defensivo 
Luna SDI, constituido por las ultimas reservas de 
material humano y militar del Sistema. 

Los extranos son grandes estrategas, y saben 
que para aniquilar a la Luna y atacar despues a 
la Tierra, deben conseguir algo basico, a saber: 
acercarse a la Luna. Solo se lo impiden las 
baterfas de canones laser de largo alcance que la 
defienden y han decidido intentar destruirlas 
enviando gigantescas naves madres repletas de 
velocfsimos cazas. Asf, aun a costa de grandes 
bajas, debilitaran lo suficiente el campo de fuerza 
que protege a la Luna y el ejercito de reserva 
hara lo demas. 


Ni que decir tiene que los avezados defensores 
de la Tierra son los de mas rapidos reflejos del 
planeta, y sus puntuaciones en las maquinas de 
los bares asf lo certifican. 

No cabe duda tampoco de que tu, casualmente, 
eres su aclamado capitan, alias Dedos de Pantera 
O’Sullivan y que tu baterfa laser se encuentra 
justo enfrente de la nave madre enemiga, donde 
el ataque sera mas despiadado y virulento. 

Si Laserbase fuera un juego en lugar de la mas 
cruda realidad, dirfamos que hacen falta unos 
ojos de lince y una mano de hierro para acertar a 
los esquivos y erraticos alienfgenas, los cuales, 
sabiendo que se juegan su sucia vida, no estan 
dispuestos a dejarse abatir por nada del mundo 
(del suyo, claro). 

Si se tratara de un juego, anadirfamos que esta 
muy bien hecho, y que tanto de su parte Basic 
como dc la de Codigo Maquina se puede 
aprender mucho. 


p,yp,lau,n 

960 CALL &A068,sx,sy,nf,x:nf=0 
970 FOR a=l TO 1000:NEXT:lau=0 
980 REM ******************** 

990 REM rutina de movimiento 
1000 REM ******************** 

1010 b=INT C RND*4):o=INT(RND*4) 

1020 IF b AND 1 THEN dl=-l ELSE dl= 
1 

1030 IF c AND 1 THEN d2=-l ELSE d2= 
1 

1040 b=b*16 

1050 xp=xpt4*dl:yp=yp+2*d2 
1060 IF xp>hx THEN xp=hx:dl=-l 

1070 IF xpClx THEN xp=lx:dl=l 

1080 IF yp>hy THEN yp=hy:d2=-l 

1090 IF yp<ly THEN yp=ly:d2=l 

1100 CALL &A000,xp,yp,lau,n:REM mue 
ve alien 

1110 IF yp>160 THEN 1200 
1120 REM ************************** 
* 

1130 REM rutina de disparo del alie 
n 

1140 REM ************************** 
* 

1150 SOUND 130,40,40,15,0,2:CALL &A 
0D2 

1160 IF TESTRC0,-1>=3 THEN 1290:REM 
rutina del laser 

1170 SOUND 129, 150,30,15,0, 1:SOUND 
132,600,60,4,1,0,8 

1180 MOVER -16,0:GOSUB 110:pow=pow~ 
4:REM Explosion 

1190 GOSUB 200: REM Actualiza puntos 
1200 IF INKEYCee)>-1 THEN SOUND 129 
,150,30,15,0.1:CALL &A104,sx,sy,1,r 
:pow=pow-<la*0. 25) ; GOSUB 210 
1210 IF TESTR(0,0)=7 THEN 1410 
1220 sy=sy+2*(<INKEY(cc)>-l)-(INKEY 
(dd)>-l)) 

1230 sx=sx+4*(<INKEY(bb)>-!>-<INKEY 
(aa)>-l>) 

1240 CALL &A068,sx,sy,nf,x 

1250 b=b-l:IF b=0 THEN 1010 ELSE 10 

50 

1260 REM ********************* 



1270 REM mas rutinas del alien 
1280 REM ********************* 

1290 BORDER 6:MOVER -16,0:FOR b=l T 
0 2 

1300 PLOTR 0,0,b 

1310 BORDER 9+b:FOR d=l TO 2:GOSUB 

110:REM Explosion 

1320 NEXT d:NEXT b:PLOTR 0,0, b 

1330 IF xp<300 THEN c=6 ELSE c=15 

1340 IF c=6 THEN 1=0 ELSE r=0 

1350 LOCATE c,22:PEN 3:PAPER 0:PRIN 

T CHR$(229); 

1360 pow=pov?~50: la=la-l 

1370 GOTO 1190 

1380 REM ************ 

1390 REM muerte alien 
1400 REM ************ 

1410 GOSUB 170:REM Score 

1420 SOUND 132,600,60,4,1,0,12 

1430 nf=l:CALL &A068, sx,sy,nf,x 
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1440 PLOT -1,0,7:MOVE xp, yp;TAG:PRI 

NT CHR$<n+si>;:TAGOFF 

1450 PRINT CHR$< 23 ) ;CHR$(1) ; :CALL & 

A16A 

1460 al=al~l:IF al<l THEN GOTO 3010 
ELSE 920 

1470 REM ******************* 

1460 REM Redefine caracteres 
1490 REM ******************* 

1500 READ zt:IF zt=999 THEN RETURN 
ELSE READ b, c, d, e, f, g, h, i ; SYMBOL zt 
, b, c, d, e, f, g, h,i:GOTO 1500 
1510 REM 0 

1520 DATA 46,254,130,130,130,134,13 

4.134.254 
1530 REM 1 

1540 DATA 49,8,8,6,24,24,24,24,24 
1550 REM 2 

1560 DATA 50,254,130,2,254,192,192, 

192.254 
1570 REM 3 

1560 DATA 51,252,132,4,254,6,6,134, 
254 

1590 REM 4 

1600 DATA 52,252,132,132,132,132,25 

4,12,12 

1610 REM 5 

1620 DATA 53,254,128,128,254,6,6,13 

4.254 

1630 REM 6 

1640 DATA 54,254,130,128,254,134,13 

4.134.254 
1650 REM 7 

1660 DATA 55,254,2,2,6,6,6,6,6 
1670 REM 8 

1680 DATA 56,124,68,68,254,134,134, 

134.254 
1690 REM 9 

1700 DATA 57,254,130,130,130,254,6, 

6,6 

1710 REM A 

1720 DATA 65,124,68,68,254,194,194, 

194.194 
1730 REM F 

1740 DATA 70,254,128,128,252,192,19 

2,192,192 
1750 REM G 

1760 DATA 71,254,130,128,198,194,19 

4.194.254 
1770 REM H 

1780 DATA 72,130,130,130,254,198,19 
8,198,198 
1790 REM N 

1800 DATA 78,254,130,130,194,194,19 

4.194.194 
1810 REM O 

1820 DATA 79,254,134,134,130,130,13 
0,130,254 
1830 REM P 

1840 DATA 80,254,130,130,254,192,19 
2, 192, 192 
1850 REM S 

1860 DATA 83,254.130,128,254,6,6,13 
4, 254 

1870 REM a 

1880 DATA 97,0,0,248,136,8.248.200. 
248 

1890 REM c 

1900 DATA 99,0,0,248,136,192,192,20 
0,248 

1910 REM e 


1920 DATA 101,0,0,248,136,248,192,2 

00,248 

1930 REM h 

1940 DATA 104,0,0,128,248,136,200,2 
00,200 
1950 REM i 

1960 DATA 105,0,32,0,32,32,48,48,48 
1970 REM ro 

1980 DATA 109,0,0,254,146,218,218,2 
18,218 
1990 REM n 

2000 DATA 110,0,0,248,136,200,200,2 
00,200 
2010 REM o 

2020 DATA 111,0,0,248,136,200,200,2 

00,248 

2030 REM p 

2040 DATA 112,0,0,248,136,200,248,1 

92,192 
2050 REM r 

2060 DATA 114,0,0,248,128,192,192,1 

92,192 
2070 REM t 

2080 DATA 116,0,32,112,32,48,48,48, 
48 

2090 REM v 

2100 DATA 118,0,0,200,200,200,72,80 
, 112 

2110 REM w 

2120 DATA 119,0,0,146,146,218,218,2 

18,254 

2130 REM laser destruido 

2140 DATA 229,0,0,0,44,60,228,126,2 

03 

2150 REM mini-alien 1 

2160 DATA 240,0,0,20,42,62,42,20,0 

2170 REM alien 1 

2180 DATA 241,0,34,65,93,119,93,65, 
34 

2190 REM gran alien 1 

2200 DATA 242,102,129,189,231,231,1 

89,129,102 

2210 REM mini-alien 2 

2220 DATA 243,0,0,0,24,60,66,0,0 

2230 REM alien 2 

2240 DATA 244,0,0,36,24,60,90,0,0 

2250 REM gran alien 2 

2260 DATA 245,0,66,36,60,36,90,129, 

129 

2270 REM explosion 

2280 DATA 246,0,42,126,63,126,63,22 
9, 0 

2290 REM explosion 

2300 DATA 247,124,126,130,65,130,65 
,88,60 


2310 

REM strella 




2320 

DATA 248,0, 

0, 0,16 

. 0, 0, 0 

,0,999 

2330 

CLS:MODE 1: 

PEN 3 



2340 

PRINT" 

* 

*** 

*** 

*** 

*** 




2350 

PRINT" 

* 

* * 

* 

* 

2360 

* * 

PRINT” 

* 

*** 

*** 

** 

*** 




2370 

PRINT" 

* 

* * 

* 

* 

** 




2380 

PRINT” 

*** 

* * 

*** 

*** 

* * 




2390 

PRINT:PRINT:PRINT 


2400 

PRINT" 

*** 

*** ** 

* 

*** 
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2410 

PRINT” 

* 

* * * * * 

2420 

PRINT” 

**** *** ** 

* 

** 


2430 

PRINT” 

* * * * 

* 

* 


2440 

PRINT” 

**** * * ** 

* 

*** 


2450 

PEN 2: 

LOCATE 20,15:PRINT”BY”:L 


OCATE 12,17:PRINT "K.K & P.A Leybou 
me” : LOCATE 19, 19: PRINT” 1987” 

2460 PEN 1:LOCATE 8.24;PRINT”Prepar 
ado para la bataila ” 

2470 GOSUB 3120;FOR a=l TO 25;PRINT 
:FOR b=l TO 100:NEXT;NEXT:RETURN 
2480 PEN 3:CLS:PRINT TAB<15)"LASER 
BASE”;PRINT TABC15) STRINGS<10,CHR$ 
C95));PRINT 

2490 PEN 1:LOCATE 1,3:PRINT CHRSC20 

) 

2500 PRINT ”E1 final de la guerra g 
alactica se esta ”; 

2510 PRINT "aproKinando,Todos los p 
lanetas mayores del Sistema estan 
destruidos,excepto 
2520 PRINT "la Tierra y su Luna,” 
2530 PRINT:PRINT ”Tu controlas la t 


orreta laser de la Luna, y debes de 
struir cuantos”; 

2540 PRINT "alienigenas puedas.”;PR 
I NT 

2550 PRINT:PRINT "La puntuacion del 
j uego es como sigue:-” 

2560 FOR b=243 TO 246 STEP 3 
2570 PRINT:PRINT:PRINT TABC8);:FOR 
d=l TO 3 

2580 PEN 3:PRINT CHRSCb~d>;:PEN 1:P 
RINT ” PEN 2 

2590 IF b > 243 THEN PRINT 2*d; : IF 
d=2 THEN PRINT” ”;:GOTO 2610 ELSE 2 

610 

2600 PRINT 5*d; 

2610 NEXT d,b:GOSUB 2850; REM Espera 
tecla 

2620 LOCATE 1,3:PRINT CHR$C20):PEN 
1 

2630 PRINT ”E1 ataque alienigena em 
erge del transporte, fuera del alca 
nde del laser.” 

2640 PRINT ”Cada oleada causa 10 at 


aques que hay que evitar antes de q 

ue: 

2650 PRINT 

2660 PRINT ” A), Los aliens destruy 
an axnbas torretas laser. 


2670 PRINT:PRINT ” B). Se te acabe 
la energia.PRINT 

2680 PRINT:PRINT”Usa Joystick o Tec 


lado, 

2690 PEN 3:PRINT 
:PRINT ”Mueve 
"Dere.” 

2700 PEN 3:PRINT 
:PRINT "Mueve 


TAB(10)”> :PEN 1 

”;:PEN 2;PRINT 

TABC10)”< ”; : PEN 1 
”;:PEN 2:PRINT 


”Izq.” 

2710 PEN 3:PRINT 
’.PRINT ”Mueve 
” A. ” 

2720 PEN 3:PRINT 
:PRINT ”Mueve 


TABC10)”A :PEN 1 
;FEN 2:PRINT 

TABC10) ”Z ”;:PEN 1 
”;:PEN 2:PRINT 


” Aba. 


*1 


Serie 



2730 PEN 3:PRINT TABC6)”SPACE ” ; : PE 
N 2’.PRINT TABC23)” fuego” 

2740 PRINT:PRINT TABC13>”Space o Fu 
ego”:en=0:s=l 

2750 WHILE INKEY$< :WEND 

2760 FOR a=l TO 35:a$=INKEYS:IF a$< 

>”” THEN 2790 

2770 NEXT:IF s=l THEN 2760 

2780 INK co,en MOD 27:en=en+l:GOTO 

2760 

2790 a$=UPPER$<a$> 

2800 IF aS=” ” THEN aa=31:bb=39: cc= 
71:dd=69:ee=47:s=0:RETURN:REM Tecla 


do 

2810 IF a$=”N" THEN CALL 0 
2820 IF a$=”Z” THEN ee=77:GOTO 2840 
2830 IF a$=”X” THEN ee=76:G0T0 2840 
ELSE GOTO 2750 

2840 aa=75:bb=74:cc=73:dd=72:s=0:RE 
TURN 

2850 PRINT:PRINT:PRINT TABC10)”Fuls 
a para continuar” 

2860 WHILE INKEYSO”” : WEND: WHILE IN 
KEY$=””:WEND:RETURN 
2870 REM ************* 

2880 REM fin del Juego 
2*?90 REM ************* 

2900 CLG:LOCATE 5,5:PEN 2:PAPER 0 
2910 WHILE INKEYS <>””:WEND 
2920 PRINT ” Game Over”:PRINT 
2930 en=l:co=3:IF sc < hi THEN co=l 
:GOTO 2950 

2940 PEN 3:PRINT:PRINT ” New Hi-Sc 
ore ”;sc:hi=sc:GOTO 2960 
2950 PEN 1:PRINT:PRINT ” Hi-Scor 
e ” :hi 

2960 PEN 6:PRINT:PRINT:PRINT ” 

Otra vez? ” 

2970 PEN 2:PRINT:PRINT: PRINT ” Spac 
e o Fuego o N” 

2980 GOSUB 2750:CLG:REM Espera tecl 


a 

2990 t=0:sc=0:LOCATE 7,24:PAPER 15; 
PRINT STRINGSC3,” **> 












Serie 


ORO 



n ^ 


g^c ore id Ener- - 


3000 GOTO 430 

3010 REM *************** 

3020 REM redibuja aliens 
3030 REM *************** 

3040 CLG:LOCATE 6,5:PEN 2:PAPER 0:P 
RINT"Preparado! ” 

3050 LOCATE 8,10:PRINT ”Otra 
3060 LOCATE 9,15:PRINT ’’ola ” 

3070 FOR a=l TO 2000:NEXT:CLG:t=t+l 
:sc=sc+t*50 

3080 GOSUB 200:al=10:GOTO 440 
3090 REM ************** 

3100 REM codigo inaquina 
3110 REM ************** 

3120 RESTORE 3180 

3130 a=&A000:FOR b=3180 TO 3390 STE 
P 10: f=0: READ a$,d 

3140 FOR c=l TO LENCaS) STEP 2se=VA 
L<”&’’+MID$(a$, c, 2) ) : f=f+e 
3150 POKE a,e:a=a+1;NEXT c:IF f<)d 
THEN 3170 

3160 NEXT b:RETURN 

3170 PRINT ’’Data error en l±nea’’;b: 

PRINT: PRINT ’’Tecla GOTO 280 despue 

s de corregir el ERROR”: STOP 

3180 DATA 3E07CDDEBBDD7E02B7F5200DE 

D5B4DA12A4FA1CDC0BBCD32A0CD3EA00E00 

F1200D3A4FA1FEE63006, 4915 

3190 DATA 0CFEBE30010C79324BA13A4AA 

1473A4BA180 CDFCBBC9 CDS BA 0 EDS 3 4 DA122 

4FA1F5CDC0BBF1B72801,5137 

3200 DATA AF324BA1DD7E00324AA1C9DD6 

E04DD6605DD5E06DD5607C93E04CDDEBBDD 

7E02B72803C386A0ED5B,4865 

3210 DATA 46A12A48A1CDC0BBCD19BDCD8 

9A0CDC4A0110C0021FAFFD5E5CDF9BB1118 

0021F8FFCDC3BBE1D1D5,6033 

3220 DATA CDF9BB11D0FF210000CDC3BBD 

1D5210600E5CDF9BB111800210800CDC3BB 

E1D1CDF9BBC9CD5BA0ED, 5710 

3230 DATA 5346A12248A1CDC0BBC911F0F 


FD5E1CDC3BB3E03CDDEBB11000 021B0FFE5 

D5CDF9BB010606CD38BC,5608 

3240 DATA 010D0DCD38BCD1D5215000CDC. 

3 BBD1E1CDF9BBC93E03CDDEBBCD5BA0D511 

F3FF192255A1D1211A00,5310 

3250 DATA 192257A1CD23A1CD23A1C9214 

000DD7E02B7280BE511AE00CDC0BBCB5CA1 

E1DD7E00B7C811CE01CD, 4836 

3260 DATA C0BBCD5CA1C90000000000000 

0000000000000000000000000000000ED5B 

57A12A55A1CD19BDCDF6.2772 

3270 DATA BBC93E04CDDEBB2A4DA111100 

019E52A4FA111F8FF19D1ED5351A12253A1 

3E01325BA13E023259A1,4240 

3280 DATA 3E10325AA101EBA1CDB9A13A5 

AA13D325AA120F43A59A13D3259A120E33A 

5BA13C325BA1FE2020D3, 4403 

3290 DATA C90A035F0A03572A53A13A5BA 

1193D20FCE50A035F0A03572A51A13A5BA1 

193B20FCEBE1C5CDEABB, 4059 

3300 DATA 21000011FFFFCBEDBBC1C9010 

001000200030001000200FDFFFFFFFCFF03 

000100FFFF0200FEFF00,4143 

3310 DATA 0001000000FEFFFEFF0100FEF 

F020002000000030OFEFFFfFFFEFFOlOOFC 

FFFCFFFDFF,4587 

3320 DATA 0116012140A27E23E50BC5CD5 

ABBC1E179B020F2C9,2553 

3330 DATA 1F0A020F0DD68FD71F0304D68 

FD71F1104D68FD70F061F0205D60EODD720 

D60E00D71F11050E0DD7,3162 

3340 DATA 20D60E00D71F09040E0DD50E0 

CD420D50E0DD41F10050E00D61F0903D60E 

0DD720D60E00D71F0905,2780 

3350 DATA 0F0DD50F0C8F8F8F0F0DD41F0 

2060E06B70F0CB68FD70F0BD60F0C0E0D20 

2020D58FD42020200F06, 2887 

3360 DATA D50F0C0E06D68FD70F060E0DD 

40F0D0E001F0207D50F0C8F208F8F8F8F8F 

8F8F8F8F8F8F8F8F208F, 3623 

3370 DATA 0F0DD40F0C0E0D1F0A06D58FD 

40E001F0308D58FD41F08080F060E0DD50E 

0CD40F0C8F8F8F0F06D5,2769 

3380 DATA 0E0DD4OF0COE001F1108D58FD 

41F08090F0DD50F0C8F0F0D0E012020200F 

0C0E008F0F0DD40F0C1F, 1984 

3390 DATA 090AD58F8F8FD40EOOOFOF1FO 

10101D41F1401D51F1416D61F0116D71F04 

070E01E91F1207E90000,2563 



Para quo tus 
dcdos no rcaliccn 
cl trabajo duro. 
AMSTRAD 
Semonal lo hacc 
por ti. Todos los 
listados quc 
incluyan cstc 
logotipo sc 
cncuentran a tu 
disposition en un 
cassette mensual, 
solicftanoslo 


50 AMSTRAD Sermnal 













F5W3U 

PROGRAM 


VISA 




RECIBE 

am strap 

IEVBTAINDEPfflfflENT!MIA U5UWOOS BEOfflEN ADOKSAMSTMD YjfvjJ** ** 

EN CASA 


D 


eseo suscribirme a la revista AMSTRAD SEMANAL por un afio 
(50 numeros), al precio de 7.950 pts. Esta suscripcion me da derecho 
a recibir, totalmente gratis, los dos ultimos exitos de Dinamic ARMY 
MOVES y GAME OVER (oferta valida solo para Espafia). 

Nombre _ Fecha de Nacimiento 

Apellidos_-_ 

Domicilio _ _ 

Localidad 
C. Postal 


Provincia 

Telefono 


(Para agilizar tu envio, es importante qua indiques el codigo postal) 
Formas de pago 

□ Talon bancario adjunto a nombre de Hobby Press. S.A. 

□ Giro Postal a nombre de Hobby Press, S.A., n° 

□ Contra reembolso (supone 125 pts. mas de gastos de envio y es 
valido solo para Espafia) 

□ Tarjeta de credito n? DDHO LJDDD DDDD ljDLO 
Visa □ Master Card □ American Express □ 

Fecha de caducidad de la tarjeta_,_ 

Nombre del titular (si es distinto)_ 

(Si pago con la tarjeta de credito, recibire un numero mas de regalo), 

Fecha y firma 

(Si lo deseas puedes suscribirte por telefono (91) 734 65 00) 

SOLICITA NUMEROS ATRASADOS Y CINTAS SERIE ORO 

□ Si, deseo recibir en mi domicilio las cintos que a 
continuation indico, al precio de 756 ptas. cada una. Cada cinta lleva 
grabados los programas pubiicados por AMSTRAD SEMANAL durante 
cuatro numeros consecutivos {1 al 4, 5 al 8, 9 al 12, etc.) 

Las cintas que deseo son: 

Numeros_ al Numeros_al_ 

Numeros_al_ Numeros_al_ 

□ Si, deseo recibir en mi domicilio los siguientes numeros atrasados 
de AMSTRAD SEMANAL al precio de 190 ptas. cada uno 


Esta agotado el numero 4 

Nombre 

Apellidos 

Domicilio_ 

Localidad _ 

C. Postal 


Fecha de nacimiento 


Provincia 

Telefono 


ED [HE 


Forma de pago: 

□ Mediante talon bancario a nombre de Hobby Press, S.A. 

□ Mediante giro postal a nombre de Hobby Press. S.A. n° 

□ Mediante tarjeta de credito n? Li I 1JI I I I r 
□ Visa □ Master Charge □ American Express 

Fecha de caducidad de la tarjeta 

Fecha y firma 


No se admiten solicitudes de cintas 
contra reembolso 
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Beneficiate de las venfigas 
de la tarjeta de credito. 

Un numero mas, gratis, 
en tu suscripcion y la posibilidad 
de realizar el pago aplazado. 


ARMY MOVES 


a CD > /O 


Q_'^r 


jRAMAS 


Suscribete hoy mismo a 
AMSTRAD y recibiras a 
vuelfa de correo los dos 
mayores exitos de 
Dinamic 


Como miembro del Cuerpo 
de Operaciones Especicles, 
Dendhol bo sido cdiestrado 
en varios sistemas de 
combote disfintos, csf como 
en el monejo de todos las 
armos, explosivos y 
tecnicas de guerra en to 
selva. Ahora, tras largos 
ofios de entrenamiento, le 
ha llegado el momento de 
demostrar sus habilidades 
y atravesar, por tierra, 
mar y aire, las lineos 
enemigas. <Lo conseguira? 

GAME OVER 

Los problemas de libertad 
existen hosts en las mas 
lejanas galaxies. Si no, 
que se lo digan a los 
habitantes del planeta 
Porshaco, quienes estan 
sufriendo en sus carnes 
viscoses la tirania de la 
princesa Gremla. 
Afortunadamente, Arkos, el 
mas hdbil de todos los 
mega-terminators, ha 
decidido acabar con este 
juego,- afortunadamente 
para nosotros, comienza 
Game Over. 
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Beneficiate de las ventafas 
de la tarjeta de credito. 
Un numero mas, gratis, 

en tu suscripcion y la posibilidad 

de realizar el pago aplazado. 


FABULDSOS 

PROGRAMAS 


Suscribete hoy mismo a 
AMSTRAD y recibirds a 
vuelta de correo los dm 
mayores exitos de 
Dinamic 


ARMY MOVES 

Como miembro dei Coerpo 
de Operaciones Espetiales, 
Dendhd ha sido adiestrodo 
en varios sistemas de 
combote distintos, osi como 
en el manejo de lodes los 
armos, explosivos y 
tecnicos de guerre en la 
selvo. Ahoro, tras largos 
onos de entrenamiento, le 
ho llegodo el memento de 
demostrar sus hobilidodes 
y atravesar, por tierre, 
mar y oire, las linear 
enemigos. jLo conseguird? 

GAME OVER 

Los problemas de libertod 
existen haste en las mbs 
lejonos golaxias. Si no, 
que se lo digan a los 
hobitontes del pianola 
Porshaco, quienes estdn 
sufriendo en sus cames 
viscosas la tirania de la 
princeso Gremla. 
Afortunadomente, Arkos, el 
mas hdbil de lados los 
mega-terminators, ha 
decidido acabar con este 
juego; afortunadomente 
para nosotros, comienia 
Gome Over. 












! screcns fr< »m the ircadt 
tax vour brains and finun 


2. a PARTE DE 


CONTINUACION QUE SUPERA Y MEJORA ENORMEMENTE A "DRAGON’S 
LAIR", EL JUEGO DE AS MAQUINAS QUE SE CONVIRTiO EN LEYENDA, LA 
HUIDA DEL CASTILLO DE SINGE ANADE AVENTURAS, ACCION Y EMOCION 
A LA QUE FUE PRIMERA PARTE.,.; AFILA TU ESPADA Y TU CEREBRO. 


DISTRIBUTOR EXCLUSIVO PARA ESP ANA: 

ERBE SOFTWARE. C/. STA. ENGRACIA, 17 - 28010 MADRID. TELEF (91) 447 34 10 
D^LEGACION BARCELONA. C/. VILADOMAT, 114 - TELEF (93) 253 55 60 
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